Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Number" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Get ComAdd of hoColumns1 "Format" to Nothing
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "1.23" to h
		Set ComCellValueFormat of hoItems h 1 to OLEexComputedField
		Set ComCellValue of hoItems h 1 to "2 * %0 + ` (2 * Number)`"
		Get ComAddItem of hoItems "1.23" to h
		Set ComCellValueFormat of hoItems h 1 to OLEexComputedField
		Set ComCellValue of hoItems h 1 to "3 * %0 + ` (3 * Number)`"
		Get ComAddItem of hoItems "1.23" to h
		Set ComCellValueFormat of hoItems h 1 to OLEexComputedField
		Set ComCellValue of hoItems h 1 to "currency(%0) + ` ( Currency(Number) )`"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComDrawGridLines to OLEexAllLines
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComAllowInsideZoom of hoChart to True
		Set ComFirstWeekDay of hoChart to OLEexMonday
		Set ComFirstVisibleDate of hoChart to "3/31/2013"
		Set ComPaneWidth of hoChart False to 52
		Set ComLevelCount of hoChart to 2
		Set ComUnitScale of hoChart to OLEexHour
		Variant voLevel
		Get ComLevel of hoChart 1 to voLevel
		Handle hoLevel
		Get Create (RefClass(cComLevel)) to hoLevel
		Set pvComObject of hoLevel to voLevel
			Set ComLabel of hoLevel to "<font ;6><%h%></font>"
		Send Destroy to hoLevel
		Set ComUnitWidth of hoChart to 14
		Set ComDrawGridLines of hoChart to OLEexAllLines
		Set ComAllowInsideZoom of hoChart to True
		Variant voInsideZoomFormat
		Get ComDefaultInsideZoomFormat of hoChart to voInsideZoomFormat
		Handle hoInsideZoomFormat
		Get Create (RefClass(cComInsideZoomFormat)) to hoInsideZoomFormat
		Set pvComObject of hoInsideZoomFormat to voInsideZoomFormat
			Set ComInsideUnit of hoInsideZoomFormat to OLEexMinute
		Send Destroy to hoInsideZoomFormat
		Set ComAllowResizeInsideZoom of hoChart to False
		Set ComInsideZoomOnDblClick of hoChart to False
		Variant voInsideZooms
		Get ComInsideZooms of hoChart to voInsideZooms
		Handle hoInsideZooms
		Get Create (RefClass(cComInsideZooms)) to hoInsideZooms
		Set pvComObject of hoInsideZooms to voInsideZooms
			Set ComSplitBaseLevel of hoInsideZooms to False
			Set ComDefaultWidth of hoInsideZooms to 0
		Send Destroy to hoInsideZooms
		Variant voInsideZooms1
		Get ComInsideZooms of hoChart to voInsideZooms1
		Handle hoInsideZooms1
		Get Create (RefClass(cComInsideZooms)) to hoInsideZooms1
		Set pvComObject of hoInsideZooms1 to voInsideZooms1
			Get ComAdd of hoInsideZooms1 "3/31/2013 11:00:00 PM" to Nothing
		Send Destroy to hoInsideZooms1
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "Item" to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

// Occurs when the user changes the cell's content.
Procedure OnComChange HITEM   llItem Integer   llColIndex Variant   llNewValue
	Forward Send OnComChange llItem llColIndex llNewValue
	Showln "NewValue is" llNewValue
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "DropDownList-String" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEDropDownListType
				Send ComAddItem of hoEditor 1 "NYC|New York City" Nothing
				Send ComAddItem of hoEditor 2 "CJN|Cluj Napoca" Nothing
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComAdd of hoColumns1 "DropDownList-Numeric" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Variant voEditor1
			Get ComEditor of hoColumn1 to voEditor1
			Handle hoEditor1
			Get Create (RefClass(cComEditor)) to hoEditor1
			Set pvComObject of hoEditor1 to voEditor1
				Set ComEditType of hoEditor1 to OLEDropDownListType
				Send ComAddItem of hoEditor1 1 "New York City" Nothing
				Send ComAddItem of hoEditor1 2 "Cluj Napoca" Nothing
			Send Destroy to hoEditor1
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComCellValue of hoItems (ComAddItem(hoItems,"NYC")) 1 to 2
	Send Destroy to hoItems
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Edit" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComWidth of hoColumn to 64
			Set ComAllowSizing of hoColumn to False
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEMaskType
				Set ComMask of hoEditor to ";;;rich"
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Get ComAdd of hoColumns1 "Empty" to Nothing
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "This is a bit ot long text" to Nothing
		Get ComAddItem of hoItems "" to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "DropDown" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComWidth of hoColumn to 64
			Set ComAllowSizing of hoColumn to False
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComDropDownAlignment of hoEditor to |CI$20
				Set ComEditType of hoEditor to OLEDropDownType
				Send ComAddItem of hoEditor 1 "First item. This is a bit ot long text" Nothing
				Send ComAddItem of hoEditor 2 "Second item. This is a bit ot long text" Nothing
				Send ComAddItem of hoEditor 3 "Third item. This is a bit ot long text" Nothing
				Set ComMask of hoEditor to ";;;rich"
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComAdd of hoColumns1 "PickEdit" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComWidth of hoColumn1 to 64
			Set ComAllowSizing of hoColumn1 to False
			Variant voEditor1
			Get ComEditor of hoColumn1 to voEditor1
			Handle hoEditor1
			Get Create (RefClass(cComEditor)) to hoEditor1
			Set pvComObject of hoEditor1 to voEditor1
				Set ComDropDownAlignment of hoEditor1 to |CI$20
				Set ComEditType of hoEditor1 to OLEPickEditType
				Send ComAddItem of hoEditor1 1 "First item. This is a bit ot long text" Nothing
				Send ComAddItem of hoEditor1 2 "Second item. This is a bit ot long text" Nothing
				Send ComAddItem of hoEditor1 3 "Third item. This is a bit ot long text" Nothing
				Set ComMask of hoEditor1 to ";;;rich"
			Send Destroy to hoEditor1
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Variant voColumns2
	Get ComColumns to voColumns2
	Handle hoColumns2
	Get Create (RefClass(cComColumns)) to hoColumns2
	Set pvComObject of hoColumns2 to voColumns2
		Get ComAdd of hoColumns2 "Empty" to Nothing
	Send Destroy to hoColumns2
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComCellValue of hoItems (ComAddItem(hoItems,"First item. This is a bit ot long text")) 1 to "Second item. This is a bit ot long text"
		Variant h
		Get ComAddItem of hoItems "First item. This is a bit ot long text" to h
		Variant voEditor2
		Get ComCellEditor of hoItems h 0 to voEditor2
		Handle hoEditor2
		Get Create (RefClass(cComEditor)) to hoEditor2
		Set pvComObject of hoEditor2 to voEditor2
			Set ComDropDownAlignment of hoEditor2 to |CI$20
			Set ComEditType of hoEditor2 to OLEDropDownType
			Send ComAddItem of hoEditor2 1 "First item. This is a bit ot long text" Nothing
			Send ComAddItem of hoEditor2 2 "Second item. This is a bit ot long text" Nothing
			Send ComAddItem of hoEditor2 3 "Third item. This is a bit ot long text" Nothing
		Send Destroy to hoEditor2
		Set ComCellValue of hoItems h 1 to "Second item. This is a bit ot long text"
		Variant voEditor3
		Get ComCellEditor of hoItems h 1 to voEditor3
		Handle hoEditor3
		Get Create (RefClass(cComEditor)) to hoEditor3
		Set pvComObject of hoEditor3 to voEditor3
			Set ComDropDownAlignment of hoEditor3 to |CI$20
			Set ComEditType of hoEditor3 to OLEPickEditType
			Send ComAddItem of hoEditor3 1 "First item. This is a bit ot long text" Nothing
			Send ComAddItem of hoEditor3 2 "Second item. This is a bit ot long text" Nothing
			Send ComAddItem of hoEditor3 3 "Third item. This is a bit ot long text" Nothing
		Send Destroy to hoEditor3
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Date" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEDateType
				Set ComOption of hoEditor OLEexDropDownBackColor to 15790320
				Set ComOption of hoEditor OLEexDropDownForeColor to 65793
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "1/1/2001" to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

// Occurs when the edit operation ends.
Procedure OnComEditClose 
	Forward Send OnComEditClose 
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant vColIndex
			Get ComFocusColumnIndex to vColIndex
		Send ComClearCellBackColor of hoItems (ComFocusItem(hoItems)) vColIndex
	Send Destroy to hoItems
End_Procedure

// Occurs when the edit operation starts.
Procedure OnComEditOpen 
	Forward Send OnComEditOpen 
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Variant vColIndex1
			Get ComFocusColumnIndex to vColIndex1
		Set ComCellBackColor of hoItems1 (ComFocusItem(hoItems1)) vColIndex1 to (RGB(255,0,0))
	Send Destroy to hoItems1
	Variant voItems2
	Get ComItems to voItems2
	Handle hoItems2
	Get Create (RefClass(cComItems)) to hoItems2
	Set pvComObject of hoItems2 to voItems2
		Variant vColIndex2
			Get ComFocusColumnIndex to vColIndex2
	Variant v
			Variant voItems3
			Get ComItems to voItems3
			Handle hoItems3
			Get Create (RefClass(cComItems)) to hoItems3
			Set pvComObject of hoItems3 to voItems3
				Variant vItem
					Variant voItems4
					Get ComItems to voItems4
					Handle hoItems4
					Get Create (RefClass(cComItems)) to hoItems4
					Set pvComObject of hoItems4 to voItems4
						Get ComFocusItem of hoItems4 to vItem
					Send Destroy to hoItems4
	Variant vColIndex3
					Get ComFocusColumnIndex to vColIndex3
				Get ComCellValue of hoItems3 vItem vColIndex3 to v
			Send Destroy to hoItems3
		Set ComCellValue of hoItems2 (ComFocusItem(hoItems2)) vColIndex2 to v
	Send Destroy to hoItems2
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComFullRowSelect to OLEexColumnSel
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "C1" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEEditType
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComAdd of hoColumns1 "C2" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Variant voEditor1
			Get ComEditor of hoColumn1 to voEditor1
			Handle hoEditor1
			Get Create (RefClass(cComEditor)) to hoEditor1
			Set pvComObject of hoEditor1 to voEditor1
				Set ComEditType of hoEditor1 to OLEEditType
			Send Destroy to hoEditor1
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Variant voItems5
	Get ComItems to voItems5
	Handle hoItems5
	Get Create (RefClass(cComItems)) to hoItems5
	Set pvComObject of hoItems5 to voItems5
		Set ComCellValue of hoItems5 (ComAddItem(hoItems5,"v1")) 1 to "v2"
		Set ComCellValue of hoItems5 (ComAddItem(hoItems5,"v3")) 1 to "v4"
	Send Destroy to hoItems5
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComCauseValidateValue to True
	Set ComFullRowSelect to OLEexColumnSel
	Set ComDrawGridLines to OLEexRowLines
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Date" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEDateType
				Set ComMask of hoEditor to "!99/99/9999;1;;empty=1,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,select=4,overtype"
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems Nothing to Nothing
		Get ComAddItem of hoItems "1/1/2001" to Nothing
		Get ComAddItem of hoItems Nothing to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "DropDown" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voEditor
		Get ComCellEditor of hoItems (ComAddItem(hoItems,"1/1/2001")) 0 to voEditor
		Handle hoEditor
		Get Create (RefClass(cComEditor)) to hoEditor
		Set pvComObject of hoEditor to voEditor
			Set ComEditType of hoEditor to OLEDateType
			Set ComDropDownAlignment of hoEditor to OLERightAlignment
		Send Destroy to hoEditor
		Variant voEditor1
		Get ComCellEditor of hoItems (ComAddItem(hoItems,"1/1/2001")) 0 to voEditor1
		Handle hoEditor1
		Get Create (RefClass(cComEditor)) to hoEditor1
		Set pvComObject of hoEditor1 to voEditor1
			Set ComEditType of hoEditor1 to OLEDateType
			Set ComDropDownAlignment of hoEditor1 to OLECenterAlignment
		Send Destroy to hoEditor1
		Variant voEditor2
		Get ComCellEditor of hoItems (ComAddItem(hoItems,"1/1/2001")) 0 to voEditor2
		Handle hoEditor2
		Get Create (RefClass(cComEditor)) to hoEditor2
		Set pvComObject of hoEditor2 to voEditor2
			Set ComEditType of hoEditor2 to OLEDateType
			Set ComDropDownAlignment of hoEditor2 to OLELeftAlignment
		Send Destroy to hoEditor2
		Variant voEditor3
		Get ComCellEditor of hoItems (ComAddItem(hoItems,"1/1/2001")) 0 to voEditor3
		Handle hoEditor3
		Get Create (RefClass(cComEditor)) to hoEditor3
		Set pvComObject of hoEditor3 to voEditor3
			Set ComEditType of hoEditor3 to OLEDateType
			Set ComDropDownAlignment of hoEditor3 to |CI$20
		Send Destroy to hoEditor3
		Variant voEditor4
		Get ComCellEditor of hoItems (ComAddItem(hoItems,"1/1/2001")) 0 to voEditor4
		Handle hoEditor4
		Get Create (RefClass(cComEditor)) to hoEditor4
		Set pvComObject of hoEditor4 to voEditor4
			Set ComEditType of hoEditor4 to OLEDateType
			Set ComDropDownAlignment of hoEditor4 to (|CI$20 + OLECenterAlignment)
		Send Destroy to hoEditor4
		Variant voEditor5
		Get ComCellEditor of hoItems (ComAddItem(hoItems,"1/1/2001")) 0 to voEditor5
		Handle hoEditor5
		Get Create (RefClass(cComEditor)) to hoEditor5
		Set pvComObject of hoEditor5 to voEditor5
			Set ComEditType of hoEditor5 to OLEDateType
			Set ComDropDownAlignment of hoEditor5 to (|CI$20 + OLERightAlignment)
		Send Destroy to hoEditor5
	Send Destroy to hoItems
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "DropDown" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEDateType
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voEditor1
		Get ComCellEditor of hoItems (ComAddItem(hoItems,"1/1/2001")) 0 to voEditor1
		Handle hoEditor1
		Get Create (RefClass(cComEditor)) to hoEditor1
		Set pvComObject of hoEditor1 to voEditor1
			Set ComEditType of hoEditor1 to OLEDateType
			Set ComDropDownAlignment of hoEditor1 to |CI$20
		Send Destroy to hoEditor1
		Variant voEditor2
		Get ComCellEditor of hoItems (ComAddItem(hoItems,"1/1/2001")) 0 to voEditor2
		Handle hoEditor2
		Get Create (RefClass(cComEditor)) to hoEditor2
		Set pvComObject of hoEditor2 to voEditor2
			Set ComEditType of hoEditor2 to OLEDateType
			Set ComDropDownAlignment of hoEditor2 to OLEexHOutside
		Send Destroy to hoEditor2
		Get ComAddItem of hoItems "1/1/2001" to Nothing
	Send Destroy to hoItems
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComDrawGridLines to OLEexRowLines
	Set ComFullRowSelect to OLEexColumnSel
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Float" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEMaskType
				Set ComMask of hoEditor to ";;;float,digits=0,grouping=,invalid=empty,warning=invalid character"
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 192278 to Nothing
	Send Destroy to hoItems
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Get ComAddItem of hoItems1 1000 to Nothing
	Send Destroy to hoItems1
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComCauseValidateValue to True
	Set ComFullRowSelect to OLEexColumnSel
	Set ComDrawGridLines to OLEexRowLines
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Date" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Get ComAdd of hoColumns1 "Mask" to Nothing
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "1/1/2001" to h
		Variant voEditor
		Get ComCellEditor of hoItems h 0 to voEditor
		Handle hoEditor
		Get Create (RefClass(cComEditor)) to hoEditor
		Set pvComObject of hoEditor to voEditor
			Set ComEditType of hoEditor to OLEDateType
			Set ComMask of hoEditor to "{1,12}/{1,31}/{1950,2050};1;;select=1,warning=Invalid character!,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,validateas=1"
		Send Destroy to hoEditor
		Variant v
		Variant voEditor1
		Get ComCellEditor of hoItems h 0 to voEditor1
		Handle hoEditor1
		Get Create (RefClass(cComEditor)) to hoEditor1
		Set pvComObject of hoEditor1 to voEditor1
			Get ComMask of hoEditor1 to v
		Send Destroy to hoEditor1
		Set ComCellValue of hoItems h 1 to v
		Get ComAddItem of hoItems "1/1/2001" to h
		Variant voEditor2
		Get ComCellEditor of hoItems h 0 to voEditor2
		Handle hoEditor2
		Get Create (RefClass(cComEditor)) to hoEditor2
		Set pvComObject of hoEditor2 to voEditor2
			Set ComEditType of hoEditor2 to OLEDateType
			Set ComMask of hoEditor2 to "!99/99/9999;1;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,select=4,overtype"
		Send Destroy to hoEditor2
		Variant v1
		Variant voEditor3
		Get ComCellEditor of hoItems h 0 to voEditor3
		Handle hoEditor3
		Get Create (RefClass(cComEditor)) to hoEditor3
		Set pvComObject of hoEditor3 to voEditor3
			Get ComMask of hoEditor3 to v1
		Send Destroy to hoEditor3
		Set ComCellValue of hoItems h 1 to v1
		Get ComAddItem of hoItems "1/1/2001" to h
		Variant voEditor4
		Get ComCellEditor of hoItems h 0 to voEditor4
		Handle hoEditor4
		Get Create (RefClass(cComEditor)) to hoEditor4
		Set pvComObject of hoEditor4 to voEditor4
			Set ComEditType of hoEditor4 to OLEDateType
			Set ComMask of hoEditor4 to "!99/99/9999;;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,select=4,overtype"
		Send Destroy to hoEditor4
		Variant v2
		Variant voEditor5
		Get ComCellEditor of hoItems h 0 to voEditor5
		Handle hoEditor5
		Get Create (RefClass(cComEditor)) to hoEditor5
		Set pvComObject of hoEditor5 to voEditor5
			Get ComMask of hoEditor5 to v2
		Send Destroy to hoEditor5
		Set ComCellValue of hoItems h 1 to v2
		Get ComAddItem of hoItems "1/1/2001" to h
		Variant voEditor6
		Get ComCellEditor of hoItems h 0 to voEditor6
		Handle hoEditor6
		Get Create (RefClass(cComEditor)) to hoEditor6
		Set pvComObject of hoEditor6 to voEditor6
			Set ComEditType of hoEditor6 to OLEDateType
			Set ComMask of hoEditor6 to "!99/99/9999;; ;select=4,overtype,empty,warning=Invalid character!,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,validateas=1"
		Send Destroy to hoEditor6
		Variant v3
		Variant voEditor7
		Get ComCellEditor of hoItems h 0 to voEditor7
		Handle hoEditor7
		Get Create (RefClass(cComEditor)) to hoEditor7
		Set pvComObject of hoEditor7 to voEditor7
			Get ComMask of hoEditor7 to v3
		Send Destroy to hoEditor7
		Set ComCellValue of hoItems h 1 to v3
		Get ComAddItem of hoItems "1/1/2001" to h
		Variant voEditor8
		Get ComCellEditor of hoItems h 0 to voEditor8
		Handle hoEditor8
		Get Create (RefClass(cComEditor)) to hoEditor8
		Set pvComObject of hoEditor8 to voEditor8
			Set ComEditType of hoEditor8 to OLEDateType
			Set ComMask of hoEditor8 to "![0-9 ][0-9 ]/[0-9 ][0-9 ]/[0-9 ][0-9 ][0-9 ][0-9 ];1;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,select=4,leading= "
		Send Destroy to hoEditor8
		Variant v4
		Variant voEditor9
		Get ComCellEditor of hoItems h 0 to voEditor9
		Handle hoEditor9
		Get Create (RefClass(cComEditor)) to hoEditor9
		Set pvComObject of hoEditor9 to voEditor9
			Get ComMask of hoEditor9 to v4
		Send Destroy to hoEditor9
		Set ComCellValue of hoItems h 1 to v4
		Get ComAddItem of hoItems "1/1/2001" to h
		Set ComFormatCell of hoItems h 0 to "len(value) ? shortdateF(value) : ``"
		Variant voEditor10
		Get ComCellEditor of hoItems h 0 to voEditor10
		Handle hoEditor10
		Get Create (RefClass(cComEditor)) to hoEditor10
		Set pvComObject of hoEditor10 to voEditor10
			Set ComEditType of hoEditor10 to OLEDateType
			Set ComMask of hoEditor10 to "!99/99/9999;1;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,select=4,overtype,leading"
		Send Destroy to hoEditor10
		Variant v5
		Variant voEditor11
		Get ComCellEditor of hoItems h 0 to voEditor11
		Handle hoEditor11
		Get Create (RefClass(cComEditor)) to hoEditor11
		Set pvComObject of hoEditor11 to voEditor11
			Get ComMask of hoEditor11 to v5
		Send Destroy to hoEditor11
		Set ComCellValue of hoItems h 1 to v5
		Get ComAddItem of hoItems "1/1/2001" to h
		Set ComFormatCell of hoItems h 0 to "len(value) ? shortdateF(value) : ``"
		Variant voEditor12
		Get ComCellEditor of hoItems h 0 to voEditor12
		Handle hoEditor12
		Get Create (RefClass(cComEditor)) to hoEditor12
		Set pvComObject of hoEditor12 to voEditor12
			Set ComEditType of hoEditor12 to OLEDateType
			Set ComMask of hoEditor12 to "!00/00/0000;1;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,select=4,overtype,leading"
		Send Destroy to hoEditor12
		Variant v6
		Variant voEditor13
		Get ComCellEditor of hoItems h 0 to voEditor13
		Handle hoEditor13
		Get Create (RefClass(cComEditor)) to hoEditor13
		Set pvComObject of hoEditor13 to voEditor13
			Get ComMask of hoEditor13 to v6
		Send Destroy to hoEditor13
		Set ComCellValue of hoItems h 1 to v6
		Get ComAddItem of hoItems "1/1/2001" to h
		Set ComFormatCell of hoItems h 0 to "len(value) ? shortdateF(value) : ``"
		Variant voEditor14
		Get ComCellEditor of hoItems h 0 to voEditor14
		Handle hoEditor14
		Get Create (RefClass(cComEditor)) to hoEditor14
		Set pvComObject of hoEditor14 to voEditor14
			Set ComEditType of hoEditor14 to OLEDateType
			Set ComMask of hoEditor14 to "!00/00/0000;;0;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,select=4,overtype"
		Send Destroy to hoEditor14
		Variant v7
		Variant voEditor15
		Get ComCellEditor of hoItems h 0 to voEditor15
		Handle hoEditor15
		Get Create (RefClass(cComEditor)) to hoEditor15
		Set pvComObject of hoEditor15 to voEditor15
			Get ComMask of hoEditor15 to v7
		Send Destroy to hoEditor15
		Set ComCellValue of hoItems h 1 to v7
		Get ComAddItem of hoItems "1/1/2001" to h
		Set ComFormatCell of hoItems h 0 to "len(value) ? shortdateF(value) : ``"
		Variant voEditor16
		Get ComCellEditor of hoItems h 0 to voEditor16
		Handle hoEditor16
		Get Create (RefClass(cComEditor)) to hoEditor16
		Set pvComObject of hoEditor16 to voEditor16
			Set ComEditType of hoEditor16 to OLEDateType
			Set ComMask of hoEditor16 to "!00/00/0000;;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,select=1,overtype"
		Send Destroy to hoEditor16
		Variant v8
		Variant voEditor17
		Get ComCellEditor of hoItems h 0 to voEditor17
		Handle hoEditor17
		Get Create (RefClass(cComEditor)) to hoEditor17
		Set pvComObject of hoEditor17 to voEditor17
			Get ComMask of hoEditor17 to v8
		Send Destroy to hoEditor17
		Set ComCellValue of hoItems h 1 to v8
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Float" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComFormatColumn of hoColumn to "value format `0`"
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEMaskType
				Set ComMask of hoEditor to ";;;float,digits=0"
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 192278 to Nothing
	Send Destroy to hoItems
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Float" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComFormatColumn of hoColumn to "value format ``"
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEMaskType
				Set ComMask of hoEditor to ";;;float"
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 192278 to Nothing
	Send Destroy to hoItems
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComCauseValidateValue to True
	Set ComDrawGridLines to OLEexRowLines
	Set ComFullRowSelect to OLEexColumnSel
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Phone" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEMaskType
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems Nothing to h
		Variant voEditor1
		Get ComCellEditor of hoItems h 0 to voEditor1
		Handle hoEditor1
		Get Create (RefClass(cComEditor)) to hoEditor1
		Set pvComObject of hoEditor1 to voEditor1
			Set ComEditType of hoEditor1 to OLEMaskType
			Set ComMask of hoEditor1 to "!(999) 000 0000;1;;select=1,empty,overtype,warning=invalid characer,invalid=The value you entered isn't appropriate for the input mask <b>'<%mask%>'</b> specified for this field."
		Send Destroy to hoEditor1
		Get ComAddItem of hoItems "0123" to h
		Variant voEditor2
		Get ComCellEditor of hoItems h 0 to voEditor2
		Handle hoEditor2
		Get Create (RefClass(cComEditor)) to hoEditor2
		Set pvComObject of hoEditor2 to voEditor2
			Set ComEditType of hoEditor2 to OLEMaskType
			Set ComMask of hoEditor2 to "!(999) 000 0000;2;;select=4"
		Send Destroy to hoEditor2
		Get ComAddItem of hoItems "0123" to h
		Variant voEditor3
		Get ComCellEditor of hoItems h 0 to voEditor3
		Handle hoEditor3
		Get Create (RefClass(cComEditor)) to hoEditor3
		Set pvComObject of hoEditor3 to voEditor3
			Set ComEditType of hoEditor3 to OLEMaskType
			Set ComMask of hoEditor3 to "`Phone: `!(999) 000-0000"
		Send Destroy to hoEditor3
		Get ComAddItem of hoItems "(074) 876-1222" to h
		Variant voEditor4
		Get ComCellEditor of hoItems h 0 to voEditor4
		Handle hoEditor4
		Get Create (RefClass(cComEditor)) to hoEditor4
		Set pvComObject of hoEditor4 to voEditor4
			Set ComEditType of hoEditor4 to OLEMaskType
			Set ComMask of hoEditor4 to "!(999) 000-0000;0"
		Send Destroy to hoEditor4
	Send Destroy to hoItems
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Color" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEColorType
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 255 to Nothing
		Variant h
		Get ComAddItem of hoItems 255 to h
		Variant voEditor1
		Get ComCellEditor of hoItems h 0 to voEditor1
		Handle hoEditor1
		Get Create (RefClass(cComEditor)) to hoEditor1
		Set pvComObject of hoEditor1 to voEditor1
			Set ComEditType of hoEditor1 to OLEColorType
			Set ComMask of hoEditor1 to "`RGB(`{0,255}\,{0,255}\,{0,255}`)`;;0"
		Send Destroy to hoEditor1
		Get ComAddItem of hoItems 255 to h
		Variant voEditor2
		Get ComCellEditor of hoItems h 0 to voEditor2
		Handle hoEditor2
		Get Create (RefClass(cComEditor)) to hoEditor2
		Set pvComObject of hoEditor2 to voEditor2
			Set ComEditType of hoEditor2 to OLEColorType
			Set ComMask of hoEditor2 to "`&H`XXXXXXXX`&`;;0;overtype,insertype,warning=Wrong!"
		Send Destroy to hoEditor2
		Get ComAddItem of hoItems 255 to h
		Variant voEditor3
		Get ComCellEditor of hoItems h 0 to voEditor3
		Handle hoEditor3
		Get Create (RefClass(cComEditor)) to hoEditor3
		Set pvComObject of hoEditor3 to voEditor3
			Set ComEditType of hoEditor3 to OLEColorType
			Set ComMask of hoEditor3 to "`0x`XX `0x`XX `0x`XX;;0;overtype,insertype,warning=Wrong!"
		Send Destroy to hoEditor3
		Get ComAddItem of hoItems 255 to h
		Variant voEditor4
		Get ComCellEditor of hoItems h 0 to voEditor4
		Handle hoEditor4
		Get Create (RefClass(cComEditor)) to hoEditor4
		Set pvComObject of hoEditor4 to voEditor4
			Set ComEditType of hoEditor4 to OLEColorType
			Set ComMask of hoEditor4 to "R{0,255} G{0,255} B{0,255};;0;overtype,insertype,warning=Wrong!"
		Send Destroy to hoEditor4
		Get ComAddItem of hoItems 255 to h
		Variant voEditor5
		Get ComCellEditor of hoItems h 0 to voEditor5
		Handle hoEditor5
		Get Create (RefClass(cComEditor)) to hoEditor5
		Set pvComObject of hoEditor5 to voEditor5
			Set ComEditType of hoEditor5 to OLEColorType
			Set ComMask of hoEditor5 to "`(hexa) RGB 0x`XXXXXX;;0;overtype,insertype,warning=Wrong!"
		Send Destroy to hoEditor5
		Get ComAddItem of hoItems 255 to h
		Variant voEditor6
		Get ComCellEditor of hoItems h 0 to voEditor6
		Handle hoEditor6
		Get Create (RefClass(cComEditor)) to hoEditor6
		Set pvComObject of hoEditor6 to voEditor6
			Set ComEditType of hoEditor6 to OLEColorType
			Set ComMask of hoEditor6 to "`(decimal) Red: `{0,255}` Green: `{0,255}` Blue: `{0,255};;0;overtype,insertype,warning=Wrong!"
		Send Destroy to hoEditor6
		Get ComAddItem of hoItems 255 to h
		Variant voEditor7
		Get ComCellEditor of hoItems h 0 to voEditor7
		Handle hoEditor7
		Get Create (RefClass(cComEditor)) to hoEditor7
		Set pvComObject of hoEditor7 to voEditor7
			Set ComEditType of hoEditor7 to OLEColorType
			Set ComMask of hoEditor7 to "`(combine) Red: `{0,255}` Green: 0x`XX` Blue: `{0,255};;0;overtype,insertype,warning=Wrong!"
		Send Destroy to hoEditor7
	Send Destroy to hoItems
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComCopy of hoBars "Task" "STask" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComColor of hoBar to (RGB(255,0,0))
			Send Destroy to hoBar
			Variant voBar1
			Get ComAdd of hoBars "Task:STask" to voBar1
			Handle hoBar1
			Get Create (RefClass(cComBar)) to hoBar1
			Set pvComObject of hoBar1 to voBar1
				Set ComShortcut of hoBar1 to "TS"
			Send Destroy to hoBar1
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voChart1
	Get ComChart to voChart1
	Handle hoChart1
	Get Create (RefClass(cComChart)) to hoChart1
	Set pvComObject of hoChart1 to voChart1
		Set ComPaneWidth of hoChart1 False to 96
		Set ComFirstVisibleDate of hoChart1 to "1/1/2001"
		Variant v
		Variant voBars1
		Get ComBars of hoChart1 to voBars1
		Handle hoBars1
		Get Create (RefClass(cComBars)) to hoBars1
		Set pvComObject of hoBars1 to voBars1
			Variant voBar2
			Get ComItem of hoBars1 "STask" to voBar2
			Handle hoBar2
			Get Create (RefClass(cComBar)) to hoBar2
			Set pvComObject of hoBar2 to voBar2
				Get ComColor of hoBar2 to v
			Send Destroy to hoBar2
		Send Destroy to hoBars1
		Set ComNonworkingDaysColor of hoChart1 to v
	Send Destroy to hoChart1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "TS" "1/2/2001" "1/16/2001" Nothing Nothing
	Send Destroy to hoItems
End_Procedure

// Occurs after a new Item has been inserted to Items collection.
Procedure OnComAddItem HITEM   llItem
	Forward Send OnComAddItem llItem
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComCellMerge of hoItems llItem 0 to 1
	Send Destroy to hoItems
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComMarkSearchColumn to False
	Set ComTreeColumnIndex to -1
	Set ComDrawGridLines to OLEexAllLines
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "C1" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellSingleLine to False
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Get ComAdd of hoColumns1 "C2" to Nothing
	Send Destroy to hoColumns1
	Variant voColumns2
	Get ComColumns to voColumns2
	Handle hoColumns2
	Get Create (RefClass(cComColumns)) to hoColumns2
	Set pvComObject of hoColumns2 to voColumns2
		Get ComAdd of hoColumns2 "C3" to Nothing
	Send Destroy to hoColumns2
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Get ComAddItem of hoItems1 "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines." to Nothing
		Get ComAddItem of hoItems1 "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines." to Nothing
	Send Destroy to hoItems1
End_Procedure

// Fired after cell's state has been changed.
Procedure OnComCellStateChanged HITEM   llItem Integer   llColIndex
	Forward Send OnComCellStateChanged llItem llColIndex
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComExpandItem of hoItems llItem to (ComCellState(hoItems,llItem,llColIndex))
	Send Destroy to hoItems
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellHasCheckBox to True
			Set ComAllowSizing of hoColumn to False
			Set ComWidth of hoColumn to 18
			Set ComPartialCheck of hoColumn to True
		Send Destroy to hoColumn
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Set ComShowFocusRect to False
	Set ComHasButtons to OLEexNoButtons
	Set ComTreeColumnIndex to 1
	Set ComIndent to 14
	Set ComExpandOnDblClick to False
	Set ComLinesAtRoot to OLEexNoLinesAtRoot
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Variant h
		Get ComAddItem of hoItems1 "" to h
		Set ComCellState of hoItems1 h 0 to 1
		Set ComCellValue of hoItems1 h 1 to "Project"
		Variant hChild
		Get ComInsertItem of hoItems1 h "" to hChild
		Set ComCellValue of hoItems1 hChild 1 to "Task 1"
		Get ComInsertItem of hoItems1 h "" to hChild
		Set ComCellValue of hoItems1 hChild 1 to "Task 2"
		Set ComExpandItem of hoItems1 h to True
	Send Destroy to hoItems1
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellHasCheckBox to True
			Set ComAllowSizing of hoColumn to False
			Set ComWidth of hoColumn to 18
			Set ComPartialCheck of hoColumn to True
		Send Destroy to hoColumn
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Set ComShowFocusRect to False
	Set ComHasButtons to OLEexNoButtons
	Set ComTreeColumnIndex to 1
	Set ComIndent to 14
	Set ComExpandOnDblClick to False
	Set ComLinesAtRoot to OLEexNoLinesAtRoot
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "" to h
		Set ComCellState of hoItems h 0 to 1
		Set ComCellValue of hoItems h 1 to "Project"
		Variant hChild
		Get ComInsertItem of hoItems h "" to hChild
		Set ComCellValue of hoItems hChild 1 to "Task 1"
		Get ComInsertItem of hoItems h "" to hChild
		Set ComCellValue of hoItems hChild 1 to "Task 2"
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComDrawGridLines to OLEexAllLines
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComDrawGridLines of hoChart to OLEexAllLines
		Set ComFirstVisibleDate of hoChart to "1/1/2002"
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComOverlaidType of hoBar to (OLEexOverlaidBarsStackAutoArrange + OLEexOverlaidBarsStack)
			Send Destroy to hoBar
		Send Destroy to hoBars
		Set ComPaneWidth of hoChart False to 128
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Tasks" to h
		Send ComAddBar of hoItems h "Task" "1/2/2002" "1/7/2002" "A" Nothing
		Send ComAddBar of hoItems h "Task" "1/3/2002" "1/8/2002" "B" Nothing
		Send ComAddBar of hoItems h "Task" "1/4/2002" "1/9/2002" "C" Nothing
		Set ComItemBar of hoItems h "A" OLEexBarColor to 255
		Send ComAddLink of hoItems "AB" h "A" h "B"
		Send ComAddLink of hoItems "BC" h "B" h "C"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

// Occurs when the user changes the cell's content.
Procedure OnComChange HITEM   llItem Integer   llColIndex Variant   llNewValue
	Forward Send OnComChange llItem llColIndex llNewValue
	Showln "NewValue:" llNewValue
	Showln "EditingValue:" (ComEditingText(Self))
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Edit" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEDateType
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "1/1/2001" to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComShowLockedItems to True
	Set ComDrawGridLines to OLEexVLines
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "C1" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Get ComAdd of hoColumns1 "C2" to Nothing
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComLockedItemCount of hoItems OLEexBottom to 1
		Variant h
		Get ComLockedItem of hoItems OLEexBottom 0 to h
		Set ComItemBackColor of hoItems h to (RGB(128,128,128))
		Set ComItemForeColor of hoItems h to (RGB(255,255,255))
		Set ComCellValue of hoItems h 0 to "footer c1"
		Set ComCellValue of hoItems h 1 to "footer c2"
		Set ComCellValue of hoItems (ComAddItem(hoItems,"cell")) 1 to "cell"
	Send Destroy to hoItems
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComShowLockedItems to True
	Set ComDrawGridLines to OLEexVLines
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "C1" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Get ComAdd of hoColumns1 "C2" to Nothing
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComLockedItemCount of hoItems OLEexTop to 1
		Variant h
		Get ComLockedItem of hoItems OLEexTop 0 to h
		Set ComItemBackColor of hoItems h to (RGB(128,128,128))
		Set ComItemForeColor of hoItems h to (RGB(255,255,255))
		Set ComCellValue of hoItems h 0 to "footer c1"
		Set ComCellValue of hoItems h 1 to "footer c2"
		Set ComCellValue of hoItems (ComAddItem(hoItems,"cell")) 1 to "cell"
	Send Destroy to hoItems
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComColumnAutoResize to True
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Sizable" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn
		Get ComAdd of hoColumns1 "F" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComAllowSizing of hoColumn to False
			Set ComWidth of hoColumn to 16
		Send Destroy to hoColumn
	Send Destroy to hoColumns1
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComSortBarVisible to True
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns 0 to Nothing
		Get ComAdd of hoColumns 1 to Nothing
		Get ComAdd of hoColumns 2 to Nothing
		Get ComAdd of hoColumns 3 to Nothing
		Get ComAdd of hoColumns 4 to Nothing
	Send Destroy to hoColumns
	Set ComLayout to "multiplesort="C3:1 C4:2";singlesort="C2:1""
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComHistogramVisible of hoChart to True
		Set ComHistogramHeight of hoChart to 32
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComHistogramPattern of hoBar to OLEexPatternBDiagonal
			Send Destroy to hoBar
		Send Destroy to hoBars
		Set ComPaneWidth of hoChart False to 128
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Column" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
		Variant h
		Get ComAddItem of hoItems "Item 2" to h
		Send ComAddBar of hoItems h "Task" "1/3/2001" "1/7/2001" Nothing Nothing
		Set ComItemBar of hoItems h "" OLEexBarColor to 255
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 3")) "Task" "1/6/2001" "1/9/2001" Nothing Nothing
	Send Destroy to hoItems
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
		Get ComAdd of hoAppearance 2 "c:\exontrol\images\pushed.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComPaneWidth of hoChart False to 128
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Task 1" to h
		Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" Nothing Nothing
		Get ComAddItem of hoItems "Task 2" to h
		Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" Nothing Nothing
		Set ComItemBar of hoItems h "" OLEexBarColor to 255
		Get ComAddItem of hoItems "Task 3" to h
		Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" Nothing Nothing
		Set ComItemBar of hoItems h "" OLEexBarColor to 16777216
		Get ComAddItem of hoItems "Task 4" to h
		Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" Nothing Nothing
		Set ComItemBar of hoItems h "" OLEexBarColor to 16777471
		Get ComAddItem of hoItems "Task 5" to h
		Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" Nothing Nothing
		Set ComItemBar of hoItems h "" OLEexBarColor to 33619967
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

// Occurs when the user changes the cell's content.
Procedure OnComChange HITEM   llItem Integer   llColIndex Variant   llNewValue
	Forward Send OnComChange llItem llColIndex llNewValue
	Variant v
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComCellValue of hoItems llItem llColIndex to v
	Send Destroy to hoItems
	Showln "Prev Value " v
	Showln "Check and Update the NewValue" llNewValue
	Move "1/1/2001" to NewValue
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComMarkSearchColumn to False
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Date" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComFormatColumn of hoColumn to "day(value) + `/` + month(value) + `/` + year(value)"
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEDateType
				Set ComMask of hoEditor to "{1,12}\/{1,31}\/{1,2099}"
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Get ComAddItem of hoItems1 "1/1/2001" to Nothing
	Send Destroy to hoItems1
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComToolTipDelay to 1
	Set ComToolTipWidth to 364
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "C:\Program Files\Exontrol\ExG2antt\Sample\EBN\frame.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexToolTipAppearance to |CI$1000000
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "tootip" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComToolTip of hoColumn to "this is a tooltip assigned to a column"
		Send Destroy to hoColumn
	Send Destroy to hoColumns
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Edit" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEEditType
				Set ComNumeric of hoEditor to (OLEexDisableSigns + OLEexFloatInteger)
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 1.22 to Nothing
	Send Destroy to hoItems
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Edit" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEEditType
				Set ComNumeric of hoEditor to (OLEexDisablePlus + OLEexFloatInteger)
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 1.22 to Nothing
	Send Destroy to hoItems
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Edit" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEEditType
				Set ComNumeric of hoEditor to OLEexFloatInteger
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 1.22 to Nothing
	Send Destroy to hoItems
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Edit" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEEditType
				Set ComNumeric of hoEditor to (|CI$fc + OLEexDisableSigns + OLEexFloatInteger + OLEexFloat)
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 1 to Nothing
	Send Destroy to hoItems
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Value" to Nothing
		Variant voColumn
		Get ComAdd of hoColumns "CellSingleLine = False" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComComputedField of hoColumn to "%0"
			Set ComDef of hoColumn OLEexCellSingleLine to False
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "FormatColumn/replace CRLF" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComComputedField of hoColumn1 to "%0"
			Set ComFormatColumn of hoColumn1 to "value replace `\r\n` with ``"
		Send Destroy to hoColumn1
		Variant voColumn2
		Get ComAdd of hoColumns "FormatColumn/replace TAB,CRLF" to voColumn2
		Handle hoColumn2
		Get Create (RefClass(cComColumn)) to hoColumn2
		Set pvComObject of hoColumn2 to voColumn2
			Set ComComputedField of hoColumn2 to "%0"
			Set ComFormatColumn of hoColumn2 to "(value replace `\t` with ``) replace `\r\n` with ``"
		Send Destroy to hoColumn2
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "a\ta\r\nb\tb" to Nothing
	Send Destroy to hoItems
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComDefaultItemHeight to 24
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComLevelCount of hoChart to 2
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComPaneWidth of hoChart False to 48
		Set ComNonworkingDays of hoChart to 0
		Set ComLinksStyle of hoChart to OLEexLinkSolid
		Set ComShowLinksColor of hoChart (OLEexUpdateColorLinksOnly + OLEexShowLinksStartFrom) to (RGB(255,0,0))
		Set ComShowLinksColor of hoChart (OLEexUpdateColorLinksOnly + OLEexShowLinksEndTo) to (RGB(0,255,0))
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h1
		Get ComAddItem of hoItems "Task 1" to h1
		Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "" Nothing
		Variant h2
		Get ComAddItem of hoItems "Task 2" to h2
		Send ComAddBar of hoItems h2 "Task" "1/2/2001" "1/4/2001" "" Nothing
		Set ComItemBar of hoItems h2 "" OLEexBarSelected to True
		Send ComAddLink of hoItems "L1" h1 "" h2 ""
		Variant h3
		Get ComAddItem of hoItems "Task 3" to h3
		Send ComAddBar of hoItems h3 "Task" "1/2/2001" "1/4/2001" "" Nothing
		Send ComAddLink of hoItems "L2" h2 "" h3 ""
		Get ComSchedulePDM of hoItems 0 "" to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "9/19/2006"
		Set ComPaneWidth of hoChart False to 64
		Set ComNonworkingDaysPattern of hoChart to OLEexPatternSolid
		Set ComShowLinks of hoChart to (OLEexShowLinksFront + OLEexShowExtendedLinks)
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h1
		Get ComAddItem of hoItems "Task 1" to h1
		Send ComAddBar of hoItems h1 "Task" "9/20/2006" "9/22/2006" Nothing Nothing
		Variant h2
		Get ComAddItem of hoItems "Task 2" to h2
		Send ComAddBar of hoItems h2 "Task" "9/26/2006" "9/28/2006" Nothing Nothing
		Set ComItemBar of hoItems h2 "" OLEexBarSelected to True
		Send ComAddLink of hoItems "L1" h1 "" h2 ""
		Set ComLink of hoItems "L1" OLEexLinkText to "L1"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComDefaultItemHeight to 24
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComLevelCount of hoChart to 2
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComPaneWidth of hoChart False to 48
		Set ComNonworkingDays of hoChart to 0
		Set ComLinksStyle of hoChart to OLEexLinkSolid
		Set ComShowLinks of hoChart to OLEexShowExtendedLinks
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h1
		Get ComAddItem of hoItems "Task 1" to h1
		Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "" Nothing
		Variant h2
		Get ComAddItem of hoItems "Task 2" to h2
		Send ComAddBar of hoItems h2 "Task" "1/2/2001" "1/4/2001" "" Nothing
		Send ComAddLink of hoItems "L1" h1 "" h2 ""
		Variant h3
		Get ComAddItem of hoItems "Task 3" to h3
		Send ComAddBar of hoItems h3 "Task" "1/2/2001" "1/4/2001" "" Nothing
		Send ComAddLink of hoItems "L2" h3 "" h2 ""
		Get ComSchedulePDM of hoItems 0 "" to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 128
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant hSummary
		Get ComAddItem of hoItems "Task" to hSummary
		Send ComAddBar of hoItems hSummary "Task" "1/2/2001" "1/5/2001" "K1" Nothing
		Variant hTask
		Get ComInsertItem of hoItems hSummary "Task A" to hTask
		Send ComAddBar of hoItems hTask "Task" "1/2/2001" "1/5/2001" "K1" Nothing
		Send ComAddBar of hoItems (ComInsertItem(hoItems,hTask,"Task A.1")) "Task" "1/3/2001" "1/5/2001" "K11" Nothing
		Send ComAddBar of hoItems (ComInsertItem(hoItems,hTask,"Task A.2")) "Task" "1/3/2001" "1/5/2001" "K12" Nothing
		Get ComInsertItem of hoItems hSummary "Task B" to hTask
		Send ComAddBar of hoItems hTask "Task" "1/2/2001" "1/5/2001" "K2" Nothing
		Get ComInsertItem of hoItems hTask "Task B.1" to hTask
		Send ComAddBar of hoItems hTask "Task" "1/5/2001" "1/9/2001" "K21" Nothing
		Set ComExpandItem of hoItems 0 to True
		Showln "Count: " (ComItemBar(hoItems,0,"<*>",OLEexBarsCount))
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 128
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComCopy of hoBars "Task" "CountTask" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComColor of hoBar to (RGB(0,255,0))
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant hSummary
		Get ComAddItem of hoItems "Project" to hSummary
		Set ComItemBold of hoItems hSummary to True
		Variant hTask
		Get ComInsertItem of hoItems hSummary "Task A" to hTask
		Send ComAddBar of hoItems hTask "CountTask" "1/2/2001" "1/5/2001" "K1" Nothing
		Send ComAddBar of hoItems (ComInsertItem(hoItems,hTask,"Task A.1")) "CountTask" "1/3/2001" "1/5/2001" "K11" Nothing
		Send ComAddBar of hoItems (ComInsertItem(hoItems,hTask,"Task A.2")) "CountTask" "1/3/2001" "1/5/2001" "K12" Nothing
		Get ComInsertItem of hoItems hSummary "Task B" to hTask
		Send ComAddBar of hoItems hTask "CountTask" "1/2/2001" "1/5/2001" "K2" Nothing
		Get ComInsertItem of hoItems hTask "Task B.1" to hTask
		Send ComAddBar of hoItems hTask "CountTask" "1/5/2001" "1/9/2001" "K21" Nothing
		Set ComExpandItem of hoItems 0 to True
		Set ComDefaultItem of hoItems to (ComItemByIndex(hoItems,0))
		Showln "Count: " (ComItemBar(hoItems,-3,"<*>",OLEexBarsCount))
		Set ComDefaultItem of hoItems to 0
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 128
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComCopy of hoBars "Task" "CountTask" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComColor of hoBar to (RGB(0,255,0))
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant hSummary
		Get ComAddItem of hoItems "Project" to hSummary
		Set ComItemBold of hoItems hSummary to True
		Variant hTask
		Get ComInsertItem of hoItems hSummary "Task A" to hTask
		Send ComAddBar of hoItems hTask "Task" "1/2/2001" "1/5/2001" "K1" Nothing
		Send ComAddBar of hoItems (ComInsertItem(hoItems,hTask,"Task A.1")) "CountTask" "1/3/2001" "1/5/2001" "K11" Nothing
		Send ComAddBar of hoItems (ComInsertItem(hoItems,hTask,"Task A.2")) "CountTask" "1/3/2001" "1/5/2001" "K12" Nothing
		Get ComInsertItem of hoItems hSummary "Task B" to hTask
		Send ComAddBar of hoItems hTask "Task" "1/2/2001" "1/5/2001" "K2" Nothing
		Get ComInsertItem of hoItems hTask "Task B.1" to hTask
		Send ComAddBar of hoItems hTask "CountTask" "1/5/2001" "1/9/2001" "K21" Nothing
		Set ComExpandItem of hoItems 0 to True
		Set ComDefaultItem of hoItems to (ComItemByIndex(hoItems,0))
		Showln "Count: " (ComItemBar(hoItems,-2,"<*>",OLEexBarsCount))
		Set ComDefaultItem of hoItems to 0
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 128
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComCopy of hoBars "Task" "CountTask" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComColor of hoBar to (RGB(0,255,0))
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant hSummary
		Get ComAddItem of hoItems "Project" to hSummary
		Set ComItemBold of hoItems hSummary to True
		Variant hTask
		Get ComInsertItem of hoItems hSummary "Task A" to hTask
		Send ComAddBar of hoItems hTask "CountTask" "1/2/2001" "1/5/2001" "K1" Nothing
		Send ComAddBar of hoItems (ComInsertItem(hoItems,hTask,"Task A.1")) "Task" "1/3/2001" "1/5/2001" "K11" Nothing
		Send ComAddBar of hoItems (ComInsertItem(hoItems,hTask,"Task A.2")) "Task" "1/3/2001" "1/5/2001" "K12" Nothing
		Get ComInsertItem of hoItems hSummary "Task B" to hTask
		Send ComAddBar of hoItems hTask "CountTask" "1/2/2001" "1/5/2001" "K2" Nothing
		Get ComInsertItem of hoItems hTask "Task B.1" to hTask
		Send ComAddBar of hoItems hTask "Task" "1/5/2001" "1/9/2001" "K21" Nothing
		Set ComExpandItem of hoItems 0 to True
		Set ComDefaultItem of hoItems to (ComItemByIndex(hoItems,0))
		Showln "Count: " (ComItemBar(hoItems,-1,"<*>",OLEexBarsCount))
		Set ComDefaultItem of hoItems to 0
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 128
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant hSummary
		Get ComAddItem of hoItems "Summary" to hSummary
		Send ComAddBar of hoItems hSummary "Summary" "1/2/2001" "1/2/2001" "" Nothing
		Variant hTask
		Get ComInsertItem of hoItems hSummary "Task A" to hTask
		Send ComAddBar of hoItems hTask "Task" "1/2/2001" "1/5/2001" "K1" Nothing
		Get ComInsertItem of hoItems hTask "Task A.1" to hTask
		Send ComAddBar of hoItems hTask "Task" "1/3/2001" "1/5/2001" "K11" Nothing
		Get ComInsertItem of hoItems hSummary "Task B" to hTask
		Send ComAddBar of hoItems hTask "Task" "1/2/2001" "1/5/2001" "K2" Nothing
		Get ComInsertItem of hoItems hTask "Task B.1" to hTask
		Send ComAddBar of hoItems hTask "Task" "1/5/2001" "1/9/2001" "K21" Nothing
		Send ComDefineSummaryBars of hoItems hSummary "" -3 "<K*>"
		Set ComExpandItem of hoItems 0 to True
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 128
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant hSummary
		Get ComAddItem of hoItems "Summary" to hSummary
		Send ComAddBar of hoItems hSummary "Summary" "1/2/2001" "1/2/2001" "" Nothing
		Variant hTask
		Get ComInsertItem of hoItems hSummary "Task A" to hTask
		Send ComAddBar of hoItems hTask "1Task" "1/2/2001" "1/5/2001" "K1" Nothing
		Get ComInsertItem of hoItems hTask "Task A.1" to hTask
		Send ComAddBar of hoItems hTask "Task" "1/3/2001" "1/5/2001" "K11" Nothing
		Get ComInsertItem of hoItems hSummary "Task B" to hTask
		Send ComAddBar of hoItems hTask "1Task" "1/2/2001" "1/5/2001" "K2" Nothing
		Get ComInsertItem of hoItems hTask "Task B.1" to hTask
		Send ComAddBar of hoItems hTask "Task" "1/5/2001" "1/9/2001" "K21" Nothing
		Send ComDefineSummaryBars of hoItems hSummary "" -2 "<K*>"
		Set ComExpandItem of hoItems 0 to True
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 128
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant hSummary
		Get ComAddItem of hoItems "Summary" to hSummary
		Send ComAddBar of hoItems hSummary "Summary" "1/2/2001" "1/2/2001" "" Nothing
		Variant hTask
		Get ComInsertItem of hoItems hSummary "Task A" to hTask
		Send ComAddBar of hoItems hTask "Task" "1/2/2001" "1/5/2001" "K1" Nothing
		Get ComInsertItem of hoItems hSummary "Task B" to hTask
		Send ComAddBar of hoItems hTask "Task" "1/4/2001" "1/8/2001" "K2" Nothing
		Set ComExpandItem of hoItems hSummary to True
		Send ComDefineSummaryBars of hoItems hSummary "" -1 "<*>"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 128
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant hSummary
		Get ComAddItem of hoItems "Summary" to hSummary
		Send ComAddBar of hoItems hSummary "Summary" "1/2/2001" "1/2/2001" "summary" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task A")) "Task" "1/2/2001" "1/5/2001" "K1" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task B")) "Task" "1/6/2001" "1/9/2001" "K2" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task C")) "Task" "1/11/2001" "1/14/2001" "K3" Nothing
		Send ComDefineSummaryBars of hoItems hSummary "summary" 0 "<K*>"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

// Occurs when the user dblclk the left mouse button over an object.
Procedure OnComDblClick Short   llShift OLE_XPOS_PIXELS   llX OLE_YPOS_PIXELS   llY
	Forward Send OnComDblClick llShift llX llY
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComCellChecked of hoItems 1234 to h
		Set ComCellHasCheckBox of hoItems 0 h to True
		Set ComCellState of hoItems 0 h to 0
		Set ComCellHasCheckBox of hoItems 0 h to False
	Send Destroy to hoItems
End_Procedure

// Fired after a new item has been selected.
Procedure OnComSelectionChanged 
	Forward Send OnComSelectionChanged 
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Set ComCellState of hoItems1 (ComFocusItem(hoItems1)) 0 to 1
	Send Destroy to hoItems1
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComMarkSearchColumn to False
	Set ComSelBackColor to (RGB(255,255,128))
	Set ComSelForeColor to (RGB(0,0,0))
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems2
	Get ComItems to voItems2
	Handle hoItems2
	Get Create (RefClass(cComItems)) to hoItems2
	Set pvComObject of hoItems2 to voItems2
		Get ComAddItem of hoItems2 "Radio 1" to h
		Set ComCellHasRadioButton of hoItems2 h 0 to True
		Set ComCellRadioGroup of hoItems2 h 0 to 1234
		Get ComAddItem of hoItems2 "Radio 2" to h
		Set ComCellHasRadioButton of hoItems2 h 0 to True
		Set ComCellRadioGroup of hoItems2 h 0 to 1234
		Set ComCellState of hoItems2 h 0 to 1
		Get ComAddItem of hoItems2 "Radio 3" to h
		Set ComCellHasRadioButton of hoItems2 h 0 to True
		Set ComCellRadioGroup of hoItems2 h 0 to 1234
	Send Destroy to hoItems2
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Set ComTreeColumnIndex to -1
	Set ComDrawGridLines to OLEexAllLines
	Set ComHeaderHeight to 24
	Set ComDefaultItemHeight to 24
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Image" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComAllowSizing of hoColumn to False
			Set ComWidth of hoColumn to 32
			Set ComHTMLCaption of hoColumn to "<img>1</img>"
			Set ComHeaderAlignment of hoColumn to OLECenterAlignment
			Set ComAlignment of hoColumn to OLECenterAlignment
			Set ComDef of hoColumn OLEexCellValueFormat to 1
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Get ComAdd of hoColumns1 "Rest" to Nothing
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "<img>1</img>" to Nothing
		Get ComAddItem of hoItems "<img>2</img>" to Nothing
		Get ComAddItem of hoItems "<img>3</img>" to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

// Occurs when a bar is moved or resized.
Procedure OnComBarResize HITEM   llItem Variant   llKey
	Forward Send OnComBarResize llItem llKey
	Send ComRefresh
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComDefaultItemHeight to 22
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "InterectBars" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 48
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComOverlaidType of hoBar to OLEexOverlaidBarsIntersect
				Set ComOverlaid of hoBar OLEexOverlaidBarsIntersect to "ERROR"
			Send Destroy to hoBar
		Send Destroy to hoBars
		Variant voBars1
		Get ComBars of hoChart to voBars1
		Handle hoBars1
		Get Create (RefClass(cComBars)) to hoBars1
		Set pvComObject of hoBars1 to voBars1
			Variant voBar1
			Get ComAdd of hoBars1 "ERROR" to voBar1
			Handle hoBar1
			Get Create (RefClass(cComBar)) to hoBar1
			Set pvComObject of hoBar1 to voBar1
				Set ComColor of hoBar1 to (RGB(255,0,0))
				Set ComPattern of hoBar1 to OLEexPatternSolid
				Set ComHeight of hoBar1 to 7
			Send Destroy to hoBar1
		Send Destroy to hoBars1
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "" to h
		Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "A" "A"
		Send ComAddBar of hoItems h "Task" "1/3/2001" "1/5/2001" "B" "B"
		Set ComCellValue of hoItems h 0 to (ComIntersectBars(hoItems,h,"A",h,"B"))
		Get ComAddItem of hoItems "" to h
		Send ComAddBar of hoItems h "Task" "1/6/2001" "1/9/2001" "A" "A"
		Send ComAddBar of hoItems h "Task" "1/10/2001" "1/13/2001" "B" "B"
		Set ComCellValue of hoItems h 0 to (ComIntersectBars(hoItems,h,"A",h,"B"))
		Get ComAddItem of hoItems "" to h
		Send ComAddBar of hoItems h "Task" "1/6/2001" "1/9/2001" "B" "B"
		Send ComAddBar of hoItems h "Task" "1/10/2001" "1/13/2001" "A" "A"
		Set ComCellValue of hoItems h 0 to (ComIntersectBars(hoItems,h,"A",h,"B"))
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComHeaderHeight to 32
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "ID" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComHTMLCaption of hoColumn to "<font ;16>ID"
			Set ComWidth of hoColumn to 32
			Set ComAllowSizing of hoColumn to False
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "Task" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComHTMLCaption of hoColumn1 to "<font ;16>Task"
		Send Destroy to hoColumn1
	Send Destroy to hoColumns
	Set ComFocusColumnIndex to 1
	Set ComShowFocusRect to False
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComCellValue of hoItems (ComAddItem(hoItems,1)) 1 to "Task A"
		Set ComCellValue of hoItems (ComAddItem(hoItems,2)) 1 to "Task B"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "ID" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComFormatColumn of hoColumn to "1 index ''"
			Set ComWidth of hoColumn to 32
			Set ComAllowSizing of hoColumn to False
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "Task" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Variant voEditor
			Get ComEditor of hoColumn1 to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEEditType
			Send Destroy to hoEditor
		Send Destroy to hoColumn1
	Send Destroy to hoColumns
	Set ComFocusColumnIndex to 1
	Set ComShowFocusRect to False
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 128
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComAllowCreateBar of hoChart to OLEexCreateBarAuto
	Send Destroy to hoChart
		Set ComTemplate to "Chart.Bars("Task"){Def(3) = "<%=%C1%>";Def(4)=18}"
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 128
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant hSummary
		Get ComAddItem of hoItems "Summary" to hSummary
		Send ComAddBar of hoItems hSummary "Summary" "1/2/2001" "1/2/2001" Nothing Nothing
		Variant hTask
		Get ComAddItem of hoItems "Task A" to hTask
		Send ComAddBar of hoItems hTask "Task" "1/2/2001" "1/5/2001" Nothing Nothing
		Send ComDefineSummaryBars of hoItems hSummary "" hTask ""
		Get ComAddItem of hoItems "Task B" to hTask
		Send ComAddBar of hoItems hTask "Task" "1/4/2001" "1/8/2001" Nothing Nothing
		Send ComDefineSummaryBars of hoItems hSummary "" hTask ""
	Send Destroy to hoItems
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComDefaultItemHeight to 24
	Set ComDrawGridLines to OLEexAllLines
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComDrawGridLines of hoChart to OLEexAllLines
		Set ComNonworkingDays of hoChart to 0
		Set ComPaneWidth of hoChart False to 128
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComPattern of hoBar to OLEexPatternSolid
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Column" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Solid A" to h
		Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "A" Nothing
		Send ComAddBar of hoItems h "Task" "1/5/2001" "1/7/2001" "B" Nothing
		Set ComItemBar of hoItems h "B" OLEexBarColor to 255
		Send ComAddBar of hoItems h "Task" "1/8/2001" "1/10/2001" "C" Nothing
		Set ComItemBar of hoItems h "C" OLEexBarColor to 65280
		Get ComAddItem of hoItems "Solid B" to h
		Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "A" Nothing
		Set ComItemBar of hoItems h "A" OLEexBarBackColor to 255
		Send ComAddBar of hoItems h "Task" "1/5/2001" "1/7/2001" "B" Nothing
		Set ComItemBar of hoItems h "B" OLEexBarColor to 255
		Set ComItemBar of hoItems h "B" OLEexBarBackColor to 65280
		Send ComAddBar of hoItems h "Task" "1/8/2001" "1/10/2001" "C" Nothing
		Set ComItemBar of hoItems h "C" OLEexBarColor to 16711680
		Set ComItemBar of hoItems h "C" OLEexBarBackColor to 16711935
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAEGg4BNUMQAAYAQGKIYBkAKBQAGaAoDDMOQ4QwAAxDCKsEwsACEIrjKCRShyCYZRhGcTALD8EhhECTZKkAYQEiKLoaRzAcwyDAcQRFCKUJxhEYZai+NobSBQMZqBQgASIUCLZ5ACSYEigAovTULCKwJiWNZDUTRcTxCKQahLLivIhGUYKfgmY5lT5VUT1HS9IShJSmKTlORLOi+M4zUJLc4SVblGz7FyfYDBKygLqqFigLAxdDYTRNfzjHiTKbtGA7MADA4DVTAeC2bC+EYVTytY4sHQrIACZ5iWREMhXTi0E4rTa6dTxaS6KzKGqsZbsNAbHLdHTfVy1Mx1XaobqDJZdaTpdjaTDeJSjVjKdx4TZqSizjSGJOgcU4RhcIQDDURhIESXwEGgbQJBQQjeggQBiC4NJAluGJrAUB5Lmmc56n4Pp/i+NQjmqdQ5k2J5+AGAAgCgFgEgAHxQAGfoBmAOA2AaAxghgLgOgMIJ4AoER8mEWBSBoNohHKAgZgSYgIHYH4ImCB5OAqBghjiEgcgmIQoioD4IiKGJGCsUgUHiVirmOBQVAEgI=" to Nothing
		Get ComAdd of hoAppearance 39 "CP:1 -1 -1 0 0" to Nothing
		Get ComAdd of hoAppearance 40 "gBFLBCJwBAEHhEJAEGg4BEcMQAAYAQGKIYBkAKBQAGaAoDDMOQ4QwAAxDCKsEwsACEIrjKCRShyCYZRhGcTAFD8EhhECTZKkAZwEiKLoaRzAcwyDAcQRFCKUJxlKa5PjaLwAAbJMZKAqDDgBIijIqnKA5JoyKIkTzCIJxXScByDGqNaQoehYXhEMg1CTXVgRCKoYTDBKybLqGT6VoCP5vWJaURWHZFTTJOyNagmSJ6XACbQMW7gNYQGBEEigNIxToOU4jFDGIB2VAQRK5BDQbQSFCpIRCCRQYhcQJ6YIAD76HomS5NU7UNKhHSdMy3J6ra5sOqbBqWa5LWjbNq3DadSzvPKub5vexwHwWawSUDkOR5Li+M43S4JPS5bZdDxPiWVJrnWOw9F6XxTiGWpsHcO5+C6Xx7kOZpwHoOxeF8T4fkeYJgnEdZwOwQRBnSex9H6f4vk+c5xn4fZQhQBCAg==" to Nothing
		Get ComAdd of hoAppearance 41 "gBFLBCJwBAEHhEJAEGg4BQICg6AADACAxRDAMkOQAGaAoDDUMQyQwAAxDSK8EwsACEIrjKCRShyCYZRhGcTALBMIwKGABIRGUZJGDkOYgDCBEhTHDUOwHGyQYDkCQoRiYMAwTBQMaTXDdCQ1ECkJomObqAgkMZCTbKMySAA0NgPD6sKSjOIRSDUJZcV5EoAKfiqZIRSJSMZVLLVNSVJipAAlOTZPo6JJuTLOE4WVRcSydH6oAApeg6KoYAFzQAEDCbYgOTKBYLUOCwTZmDwTK6BcTtXDbejeYYcZ7DNj2NYtJ4TRCBcpzLLIXrCKg0TBPQ4YNC2DT5VDWIq1aDdQo7MpxWjlGI5Ri2c51UDSYi0G4tDyLSYWXDfFSQTrHDQXhAAghCUAxJgyaB1DkGRyDCKBhAiGwLg0DYhCKDI8CcVwIAwRotBeAYCCmBZ0nsfR+n+L5PlYE53BwTpzn4AIAiAGAOAMfZfmeVBwDuD54C4DYDCCaA6AgQJfHGPJtD+YRoGIF4GGGrAAH2RpjjCf4IGIOIKCSCQhmeXBtDqT54i4LYLCKaI6CkfRGlOKgtg2IxYl4OoMkwIYwmkP5jmkAg/hAZAYnAaw6A+eQeEmEgkikKg8BqDkYFCFIlBkThTg8BoThif4WGWORqFyFwjkGIJlD+ZgphIY4ZGYWYEmSGQmjGIhthvMpwGcOJPnmTh1h0JxploPAZg4I5+HyH4nlmfh/g8BhTgSf4hGgegagiIlShCYA/miahCg+JBpUIYw3k+ehehmJgpioaoWDeKYagAY4oioSZFn2BQfFGCJdD+aoqjKK4rGqWJwGENwPnqTo1i1gtiBgDYzn6PIviuWp+j+DwFnMaJ/jEbB7BqSIyCOQR4lkP5smsQpPjQbQbDSWI0C0cR6lmNpqGMCgJDCBZTFyf44G4O4KmSOWTnCVg/m6K4ymuOxu4OWw1E+e5OnWPQvGvYgWg0Q5+nyP4vlvE+OBMTJ/kEcB8BsCJCDATArA6QhxAgeIgkScRMFcFpFlCFAEICA" to Nothing
		Get ComAdd of hoAppearance 42 "gBFLBCJwBAEHhEJAEGg4BY8MQAAYAQGKIYBkAKBQAGaAoDDMOQ4QwAAwjQLMEwsACEIrjKCRShyCYZRhGcTALD8EhhECTZKkAYgEiKLoaRzAcwyDAcQRFCKUJxhEY5ai+NobRCAUiwHQUBr/I4AKLfeJ5dACKYNShRMrSABMNgZBKpJAqKiqJoiFoRDINIi2BYUIhqGCxYRseyZegmEYWVTREr3HKsVTtAanjZSJakXxnGaQJ7jKaLXo6II8YTIWBABaIAQiBahQArOiKchaTZ5YheFRYVBOG4bK6BcguW4qGxSXpuRxZOo2YAFVzNNC3YzkCIcegnIp9ZxeFK5Tg1Z4XKTaNwqPBcYpHPqdVhCOgYZwUb5XMjWNatLYIboziiUhzCAeJeG6ZAAAiBIUA0JgziGVJkGUGJIBgUYSBEN5VBoGxCEUHItjSFAxBcRhim4dIqFGTB+BUfxfneegAgCYAoBQFR+lQeASAEBRIGESAogMYJ4DoEIEmCaAqAoJoGGCbgYgaIYYG4HoHGICByCKAoKmGZBOgkYh4hoKIKmKKI2CmC5giMBINBgY0AjODRjgiXg6g2I8glUKAHEifhBhAJApBYRIRmQOQmAoOgLBIEhMhOJJZD4UoUGUSRCFaAoOHKPIAhYZY5GoXIXmWaYGF2GJlgKMB9DmZhpiIZ4aGaSYuG6GomigWgGDmCohmYdIdicWZeHqHRnCgHgIh8aAIBoCA/lAECAg" to Nothing
	Send Destroy to hoAppearance
	Set ComAppearance to |CI$28000000
	Set ComBackColor to (RGB(255,255,255))
	Set ComBackColorLevelHeader to (RGB(255,255,255))
	Set ComBackColorHeader to |CI$27000000
	Set ComSelBackColor to (RGB(0,0,0))
	Set ComSelForeColor to (RGB(255,255,255))
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComBackColorLevelHeader of hoChart to |CI$27000000
		Set ComBackColor of hoChart to (RGB(255,255,255))
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComColor of hoBar to |CI$2a000000
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Set ComFilterBarBackColor to |CI$1000000
	Set ComBackground OLEexCursorHoverColumn to |CI$29000000
	Set ComBackground OLEexToolTipAppearance to |CI$1000000
	Set ComBackground OLEexSplitBar to |CI$1000000
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexHeaderFilterBarButton to |CI$1000000
	Set ComBackground OLEexSplitBar to |CI$1ff0000
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComPaneWidth of hoChart False to 64
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Column" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Item 1" to h
		Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "" Nothing
		Set ComItemBar of hoItems h "" OLEexBarCaption to "<sha ;;0>Event <b><font ;6><off -6>2<off 4>3<off 4>1"
		Set ComItemBar of hoItems h "" OLEexBarHAlignCaption to 18
	Send Destroy to hoItems
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Column 1" to Nothing
		Get ComAdd of hoColumns "Column 2" to Nothing
	Send Destroy to hoColumns
	Set ComBackColorHeader to |CI$1000000
	Set ComBackground OLEexCursorHoverColumn to |CI$12d86ff
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComColumnAutoResize to False
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Column 1" to Nothing
		Variant voColumn
		Get ComAdd of hoColumns "Column 2" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComVisible of hoColumn to False
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 2 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 3 "c:\exontrol\images\pushed.ebn" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackground OLEexColumnsFloatAppearance to |CI$2000000
	Set ComBackground OLEexColumnsFloatBackColor to |CI$3000000
	Set ComBackground OLEexColumnsFloatCaptionBackColor to (RGB(246,245,240))
	Set ComColumnsFloatBarVisible to True
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComColumnAutoResize to False
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Column 1" to Nothing
		Variant voColumn
		Get ComAdd of hoColumns "Column 2" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComVisible of hoColumn to False
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 3 "c:\exontrol\images\pushed.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexColumnsFloatBackColor to |CI$3000000
	Set ComColumnsFloatBarVisible to True
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 2 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexColumnsFloatAppearance to |CI$2000000
	Set ComBackground OLEexColumnsFloatBackColor to (RGB(246,245,240))
	Set ComBackground OLEexColumnsFloatCaptionBackColor to (RGB(246,245,240))
	Set ComColumnsFloatBarVisible to True
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComColumnAutoResize to False
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Column 1" to Nothing
		Variant voColumn
		Get ComAdd of hoColumns "Column 2" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComVisible of hoColumn to False
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Set ComColumnsFloatBarVisible to True
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComColumnAutoResize to False
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Column 1" to Nothing
		Variant voColumn
		Get ComAdd of hoColumns "Column 2" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComVisible of hoColumn to False
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "Column 3" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComVisible of hoColumn1 to False
			Set ComEnabled of hoColumn1 to False
		Send Destroy to hoColumn1
	Send Destroy to hoColumns
	Set ComColumnsFloatBarVisible to True
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComColumnAutoResize to False
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Column 1" to Nothing
		Variant voColumn
		Get ComAdd of hoColumns "Column 2" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComVisible of hoColumn to False
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "Column 3" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComVisible of hoColumn1 to False
			Set ComAllowDragging of hoColumn1 to False
		Send Destroy to hoColumn1
	Send Destroy to hoColumns
	Set ComColumnsFloatBarVisible to True
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComColumnAutoResize to False
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Column 1" to Nothing
		Variant voColumn
		Get ComAdd of hoColumns "Column 2" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComVisible of hoColumn to False
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Set ComDescription OLEexColumnsFloatBar to "Hidden Columns"
	Set ComColumnsFloatBarVisible to True
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComColumnAutoResize to False
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Column 1" to Nothing
		Variant voColumn
		Get ComAdd of hoColumns "Column 2" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComVisible of hoColumn to False
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Set ComColumnsFloatBarVisible to True
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Column 1" to Nothing
		Get ComAdd of hoColumns "Column 2" to Nothing
	Send Destroy to hoColumns
	Set ComBackground OLEexCursorHoverColumn to -1
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Column" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "Item 1" to Nothing
		Get ComAddItem of hoItems "Item 2" to Nothing
		Get ComAddItem of hoItems "Item 3" to Nothing
	Send Destroy to hoItems
	Set ComLayout to "Select="0";SingleSort="C0:2";Columns=1"
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Column" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "Item 1" to Nothing
		Get ComAddItem of hoItems "Item 2" to Nothing
		Get ComAddItem of hoItems "Item 3" to Nothing
	Send Destroy to hoItems
	Set ComLayout to "gBjAAwAAuABmABpABsAB0ABlAByhoAPIAOEPAA9gYABoABQAgUEg0XN4AOcJicKkpujMbjsfkMFk0YhkQgUOjUEl8gjcGO0ok8KMULjEaGMcj08kQAO8oMkTNEtGwAGQAqc7gUlhh1ABtAEsk9GpEfhElgVcsMupNlnlonlaAFcr0shUsp8QPEtnVJqJhmcIhUMh0QiU5sYAqMngUSuEMw07k8Qv0SgVRrNEuVflF2jF5x9JyNEm0TjQijemyE0jE3t+YruauoAu4Az1qj9BzRn0UzksSnAA0xDjY6qnAw8OiUQ0dwzN0zWz2t7j8/xURAGNvWH6k8xlEhklhEI0O/6QAgI="
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComColumnAutoResize to False
	Set ComDrawGridLines to OLEexAllLines
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "C0" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComExpandColumns of hoColumn to "1,2"
			Set ComDisplayExpandButton of hoColumn to False
		Send Destroy to hoColumn
		Get ComAdd of hoColumns "C1" to Nothing
		Get ComAdd of hoColumns "C2" to Nothing
		Get ComAdd of hoColumns "C3" to Nothing
		Variant voColumn1
		Get ComAdd of hoColumns "C4" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComExpandColumns of hoColumn1 to "5,6"
			Set ComDisplayExpandButton of hoColumn1 to False
		Send Destroy to hoColumn1
		Get ComAdd of hoColumns "C5" to Nothing
		Variant voColumn2
		Get ComAdd of hoColumns "C6" to voColumn2
		Handle hoColumn2
		Get Create (RefClass(cComColumn)) to hoColumn2
		Set pvComObject of hoColumn2 to voColumn2
			Set ComExpandColumns of hoColumn2 to "6,7"
			Set ComDisplayExpandButton of hoColumn2 to False
		Send Destroy to hoColumn2
		Get ComAdd of hoColumns "C7" to Nothing
	Send Destroy to hoColumns
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComDrawGridLines to OLEexAllLines
	Set ComBackColorLevelHeader to (RGB(240,240,240))
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Photo" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComAllowSizing of hoColumn to False
			Set ComWidth of hoColumn to 32
		Send Destroy to hoColumn
		Get ComAdd of hoColumns "Personal Info" to Nothing
		Get ComAdd of hoColumns "Title" to Nothing
		Get ComAdd of hoColumns "Name" to Nothing
		Get ComAdd of hoColumns "First" to Nothing
		Get ComAdd of hoColumns "Last" to Nothing
		Get ComAdd of hoColumns "Address" to Nothing
		Variant voColumn1
		Get ComItem of hoColumns "Personal Info" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComExpandColumns of hoColumn1 to "2,3"
		Send Destroy to hoColumn1
		Variant voColumn2
		Get ComItem of hoColumns "Name" to voColumn2
		Handle hoColumn2
		Get Create (RefClass(cComColumn)) to hoColumn2
		Set pvComObject of hoColumn2 to voColumn2
			Set ComExpandColumns of hoColumn2 to "4,5"
			Set ComExpanded of hoColumn2 to False
		Send Destroy to hoColumn2
	Send Destroy to hoColumns
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 128
		Set ComAllowCreateBar of hoChart to OLEexCreateBarAuto
		Set ComUnitWidth of hoChart to 50
		Set ComFirstVisibleDate of hoChart to "1/1/2013"
		Set ComLevelCount of hoChart to 2
		Variant voLevel
		Get ComLevel of hoChart 0 to voLevel
		Handle hoLevel
		Get Create (RefClass(cComLevel)) to hoLevel
		Set pvComObject of hoLevel to voLevel
			Set ComLabel of hoLevel to 4096
		Send Destroy to hoLevel
		Variant voLevel1
		Get ComLevel of hoChart 1 to voLevel1
		Handle hoLevel1
		Get Create (RefClass(cComLevel)) to hoLevel1
		Set pvComObject of hoLevel1 to voLevel1
			Set ComLabel of hoLevel1 to "<%h%>:<%nn%>"
		Send Destroy to hoLevel1
		Variant voLevel2
		Get ComLevel of hoChart 1 to voLevel2
		Handle hoLevel2
		Get Create (RefClass(cComLevel)) to hoLevel2
		Set pvComObject of hoLevel2 to voLevel2
			Set ComUnit of hoLevel2 to OLEexMinute
		Send Destroy to hoLevel2
		Variant voLevel3
		Get ComLevel of hoChart 1 to voLevel3
		Handle hoLevel3
		Get Create (RefClass(cComLevel)) to hoLevel3
		Set pvComObject of hoLevel3 to voLevel3
			Set ComCount of hoLevel3 to 60
		Send Destroy to hoLevel3
		Set ComResizeUnitScale of hoChart to OLEexMinute
		Set ComResizeUnitCount of hoChart to 15
		Set ComAllowInsideZoom of hoChart to True
		Variant voInsideZoomFormat
		Get ComDefaultInsideZoomFormat of hoChart to voInsideZoomFormat
		Handle hoInsideZoomFormat
		Get Create (RefClass(cComInsideZoomFormat)) to hoInsideZoomFormat
		Set pvComObject of hoInsideZoomFormat to voInsideZoomFormat
			Set ComInsideCount of hoInsideZoomFormat to 5
			Set ComInsideUnit of hoInsideZoomFormat to OLEexMinute
			Set ComInsideLabel of hoInsideZoomFormat to "<%nn%>"
		Send Destroy to hoInsideZoomFormat
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "Item" to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
		Variant voColumn
		Get ComAdd of hoColumns "Format.1" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComComputedField of hoColumn to "%0"
			Set ComFormatColumn of hoColumn to "dateF(value) replace `/` with `-`"
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "Format.2" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComComputedField of hoColumn1 to "%0"
			Set ComDef of hoColumn1 OLEexCellValueFormat to 1
			Set ComFormatColumn of hoColumn1 to "`<b>`+ shortdate(value) + `</b> ` + timeF(value)"
		Send Destroy to hoColumn1
		Variant voColumn2
		Get ComAdd of hoColumns "Format.3" to voColumn2
		Handle hoColumn2
		Get Create (RefClass(cComColumn)) to hoColumn2
		Set pvComObject of hoColumn2 to voColumn2
			Set ComComputedField of hoColumn2 to "%0"
			Set ComDef of hoColumn2 OLEexCellValueFormat to 1
			Set ComFormatColumn of hoColumn2 to "` <b>`+ ( weekday(value) case ( 0 : `Su`; 1 : `Mo`; 2 : `Tu`; 3 : `We`; 4 : `Th`; 5 : `Fr`; 6 : `Sa`) ) + `</b> ` + ( dateF(value) replace `/` with `-` )"
		Send Destroy to hoColumn2
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "1/1/2001 10:00:00 AM" to Nothing
		Get ComAddItem of hoItems "1/2/2001 10:00:00 AM" to Nothing
	Send Destroy to hoItems
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAntiAliasing to True
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "12/26/2000"
		Set ComPaneWidth of hoChart False to 128
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Column" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h1
		Get ComAddItem of hoItems "Item 1" to h1
		Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "A" Nothing
		Set ComItemBar of hoItems h1 "A" OLEexBarCaption to "text"
		Get ComAddItem of hoItems "Item 2" to h1
		Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "A" Nothing
		Set ComItemBar of hoItems h1 "A" OLEexBarCaption to "text outside associated with a bar"
		Set ComItemBar of hoItems h1 "A" OLEexBarHAlignCaption to 18
		Get ComAddItem of hoItems "Item 3" to h1
		Send ComAddBar of hoItems h1 "" "1/2/2001" "1/2/2001" "A" Nothing
		Set ComItemBar of hoItems h1 "A" OLEexBarCaption to "text with no bar associated"
		Get ComAddItem of hoItems "Item 4" to h1
		Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/5/2001" "A" Nothing
		Get ComAddItem of hoItems "Item 5" to h1
		Get ComAddItem of hoItems "Item 6" to h1
		Get ComAddItem of hoItems "Item 7" to h1
		Get ComAddItem of hoItems "Item 8" to h1
		Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "A" Nothing
		Get ComAddItem of hoItems "Item 8" to h1
		Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/6/2001" "A" Nothing
	Send Destroy to hoItems
	Variant voChart1
	Get ComChart to voChart1
	Handle hoChart1
	Get Create (RefClass(cComChart)) to hoChart1
	Set pvComObject of hoChart1 to voChart1
		Variant voNotes
		Get ComNotes of hoChart1 to voNotes
		Handle hoNotes
		Get Create (RefClass(cComNotes)) to hoNotes
		Set pvComObject of hoNotes to voNotes
Variant vItem
				Variant voItems1
				Get ComItems to voItems1
				Handle hoItems1
				Get Create (RefClass(cComItems)) to hoItems1
				Set pvComObject of hoItems1 to voItems1
					Get ComItemByIndex of hoItems1 3 to vItem
				Send Destroy to hoItems1
						Variant voNote
			Get ComAdd of hoNotes "1S" vItem "A" "<font ;6>Movable Note Inside the Bar" to voNote
			Handle hoNote
			Get Create (RefClass(cComNote)) to hoNote
			Set pvComObject of hoNote to voNote
				Set ComPartCanMove of hoNote OLEexNoteStart to True
			Send Destroy to hoNote
			Variant vItem1
				Variant voItems2
				Get ComItems to voItems2
				Handle hoItems2
				Get Create (RefClass(cComItems)) to hoItems2
				Set pvComObject of hoItems2 to voItems2
					Get ComItemByIndex of hoItems2 6 to vItem1
				Send Destroy to hoItems2
			Get ComAdd of hoNotes "AK" vItem1 "1/6/2001" "Note associated with a date: <%mm%>/<%dd%>/<%yyyy%>" to Nothing
Variant vItem2
				Variant voItems3
				Get ComItems to voItems3
				Handle hoItems3
				Get Create (RefClass(cComItems)) to hoItems3
				Set pvComObject of hoItems3 to voItems3
					Get ComItemByIndex of hoItems3 7 to vItem2
				Send Destroy to hoItems3
						Variant voNote1
			Get ComAdd of hoNotes "2S" vItem2 "A" "<font ;6>Fixed Note Left" to voNote1
			Handle hoNote1
			Get Create (RefClass(cComNote)) to hoNote1
			Set pvComObject of hoNote1 to voNote1
				Set ComShowLink of hoNote1 to OLEexNoteLinkHidden
				Set ComPartVOffset of hoNote1 OLEexNoteEnd to 0
				Set ComPartHOffset of hoNote1 OLEexNoteStart to -32
				Set ComPartShadow of hoNote1 OLEexNoteEnd to False
				Set ComPartBackColor of hoNote1 OLEexNoteEnd to (RGB(255,255,0))
			Send Destroy to hoNote1
Variant vItem3
				Variant voItems4
				Get ComItems to voItems4
				Handle hoItems4
				Get Create (RefClass(cComItems)) to hoItems4
				Set pvComObject of hoItems4 to voItems4
					Get ComItemByIndex of hoItems4 8 to vItem3
				Send Destroy to hoItems4
						Variant voNote2
			Get ComAdd of hoNotes "3S" vItem3 "A" "Start<br><%mmm%> <%d%> <%yyyy%>" to voNote2
			Handle hoNote2
			Get Create (RefClass(cComNote)) to hoNote2
			Set pvComObject of hoNote2 to voNote2
				Set ComPartCanMove of hoNote2 OLEexNoteEnd to True
				Set ComPartHOffset of hoNote2 OLEexNoteEnd to -64
				Set ComLinkStyle of hoNote2 to OLEexLinkDot
				Set ComLinkWidth of hoNote2 to 2
				Set ComLinkColor of hoNote2 to (RGB(0,0,255))
			Send Destroy to hoNote2
Variant vItem4
				Variant voItems5
				Get ComItems to voItems5
				Handle hoItems5
				Get Create (RefClass(cComItems)) to hoItems5
				Set pvComObject of hoItems5 to voItems5
					Get ComItemByIndex of hoItems5 8 to vItem4
				Send Destroy to hoItems5
						Variant voNote3
			Get ComAdd of hoNotes "3F" vItem4 "A" "End<br><%mmm%> <%d%> <%yyyy%>" to voNote3
			Handle hoNote3
			Get Create (RefClass(cComNote)) to hoNote3
			Set pvComObject of hoNote3 to voNote3
				Set ComRelativePosition of hoNote3 to 1
				Set ComPartCanMove of hoNote3 OLEexNoteEnd to True
				Set ComLinkStyle of hoNote3 to OLEexLinkDot
				Set ComLinkWidth of hoNote3 to 2
				Set ComLinkColor of hoNote3 to (RGB(0,0,255))
			Send Destroy to hoNote3
		Send Destroy to hoNotes
	Send Destroy to hoChart1
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComDebug to True
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Column" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h1
		Get ComAddItem of hoItems "Item 1" to h1
		Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "A" Nothing
		Variant h2
		Get ComAddItem of hoItems "Item 2" to h2
		Send ComAddBar of hoItems h2 "Task" "1/3/2001" "1/5/2001" "B" Nothing
		Variant h3
		Get ComAddItem of hoItems "Item 3" to h3
		Send ComAddBar of hoItems h3 "Task" "1/5/2001" "1/7/2001" "A" Nothing
		Set ComItemBar of hoItems h3 "A" OLEexBarParent to h1
		Showln "The Bar A of H3 fails to change the parent to H1 as it has already a bar named A"
		Set ComItemBar of hoItems h3 "A" OLEexBarParent to h2
		Showln "The Bar A of H3 can be moved to H2, as it contains no bars with the key A"
	Send Destroy to hoItems
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAEGg4BS4Dg6AADACAxRDAMgBQKAAzQFAYbBmGaGAAGIZhQgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDKAkRRdDSOYDmGQYDiCIoRShOMIjRLUXxtDYEIRkSZYJAKCTtBwJAAURRULR6ACUYDnSRqGj6CQKRqEVBSLAdKyXJKvaZhGIRSDUJZkWZEIyjBY8EzXNqrIDoGKqYgOQ4XV5TFgxPR9IyhEAaLrleT5TjOII/RpOEpYXSVHxFRAAAYhG4wABCXAAXjYF5Udhlfx3FCvMbqeCcSgOWoDZZRFa0PjVQQtNC4IitGzrMqrNaDSBlGigBauKw3TKlMzye7repOA5+aJGVz7VgfGz7EDjKg0GJcgMex3lOZB5jgPYHHMaYxjeRBilWbZNG4B49l2do6hkfIhECUhjDoHROEYUYMgEbQMCEEx+lGIY0CQUQJHYGoUgQGBFkgB4FmkOINiMbBrAwQoxngSQMCCYJAG8DYCkMZJNDOAhAHCbYGGGOBqByB5hiMcJSDORhwjQKoEkKSIgHoEZEDgWJOECSwyGSGwjkWUJUh8HADiiXA6CSRgQliFwcgcSICB2EJkCKDIAB4CAxDgMoOiOIkfA4CoiDCDhAmUEg4hEF4DHKCByA8JYpHIWwbAMIIuC6EIkCiOBwA2QpSHQbgOkoIZMD2GxmnmOhVhUJQiEwYAOAoQZQD6HhnjmaIfBuQ5BlQPQLiMEhuEKIRHmEKA7h+Q5ChQdQPmiahCg+JBnDAAhVCVPpoicHYEAobodicKZqHqGAO0YNA0ikQxKg6IYnAqAZcEGKxqnqOowiUZRSFwYwPAqIZkEOLhrjqaIqB4BAqn6QYwCwKwWkSMZECKLo6jKBA7DKTItWEZBlA8SpRmwRY1G0exYi0HoEEsbpdjcLZrgaYI4kQQo6laOYEFuIpojQCJiHAZgPksAZ0EePBvDuSp0j2bxrmadY+m8QpGnKP4EHwAwAjsCZxiQQQtAgAQrAiQowhKUB/BIcJsEMD5EHETBPBYEhLFwJwZBKMY8G6bAoEaIQMjcIIEkzUZJAscgEEuShyjyKwskucpskQSwuDITJQEyTYzGuMIjBsBBCmiBATjObQDD+UB0E0DxGlCNINASO5PnSMQ7E2Uxu3CbQRguUgYFCVR1H0WxYC2R5xDSDgVWiXA8AyNggksXwPDWQQ3FgL4IHERxsluNpdj6bAqAacQckAEQBQWxfDzF4BUYYqBKhEEQNMDgPQGhFGIDgVwKR3iiCiIIIgig+BfA2MYOLtAqA4ESCYDIFgVDyGEKkPAQgFBDDwG4DYnQzg5GiDIOAZw3hCDoA8MQIA9PeGEHkRIyx6jiOMEoTAxRMhoCeIwUQKSbCKH6NgV43AECyFeEkEQdBTAxC0FESQYhgB+DGPcTwYBXBZEeCIOoKg5j6EIJAbQNxJCjCAMAJwDRxghA4DEBYpk1hnHwH4DIxg3AaFGGgMQFwHhBHgGkewhhCDIHMDkDY0AlAGEAIAgIA=" to Nothing
		Get ComAdd of hoAppearance 2 "c:\exontrol\images\normal.ebn" to Nothing
		Get ComAdd of hoAppearance 3 "CP:2 2 -4 2 4" to Nothing
	Send Destroy to hoAppearance
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 256
		Set ComLevelCount of hoChart to 2
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Info" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Range Moveable Frame" to h
		Send ComAddBar of hoItems h "Task" "1/4/2001" "1/8/2001" "F" Nothing
		Set ComItemBar of hoItems h "F" OLEexBarToolTip to "This bar can be moved inside the displayed range."
		Set ComItemBar of hoItems h "F" OLEexBarMinStart to "1/2/2001"
		Set ComItemBar of hoItems h "F" OLEexBarMaxEnd to "1/18/2001"
		Set ComItemBar of hoItems h "F" OLEexBarShowRange to 32
		Set ComItemBar of hoItems h "F" OLEexBarShowRangeTransparent to 90
		Get ComAddItem of hoItems "Range Moveable Pattern" to h
		Send ComAddBar of hoItems h "Task" "1/6/2001" "1/10/2001" "F" Nothing
		Set ComItemBar of hoItems h "F" OLEexBarToolTip to "This bar can be moved inside the displayed range."
		Set ComItemBar of hoItems h "F" OLEexBarMinStart to "1/2/2001"
		Set ComItemBar of hoItems h "F" OLEexBarMaxEnd to "1/18/2001"
		Set ComItemBar of hoItems h "F" OLEexBarShowRange to 1
		Set ComItemBar of hoItems h "F" OLEexBarShowRangeTransparent to 90
		Get ComAddItem of hoItems "Range Moveable EBN Transparent" to h
		Send ComAddBar of hoItems h "Task" "1/8/2001" "1/12/2001" "F" Nothing
		Set ComItemBar of hoItems h "F" OLEexBarToolTip to "This bar can be moved inside the displayed range."
		Set ComItemBar of hoItems h "F" OLEexBarMinStart to "1/2/2001"
		Set ComItemBar of hoItems h "F" OLEexBarMaxEnd to "1/18/2001"
		Set ComItemBar of hoItems h "F" OLEexBarShowRange to 16777216
		Set ComItemBar of hoItems h "F" OLEexBarShowRangeTransparent to 50
		Get ComAddItem of hoItems "Range Moveable EBN Opaque 1" to h
		Set ComItemHeight of hoItems h to 24
		Send ComAddBar of hoItems h "Task" "1/10/2001" "1/14/2001" "F" Nothing
		Set ComItemBar of hoItems h "F" OLEexBarToolTip to "This bar can be moved inside the displayed range."
		Set ComItemBar of hoItems h "F" OLEexBarMinStart to "1/2/2001"
		Set ComItemBar of hoItems h "F" OLEexBarMaxEnd to "1/18/2001"
		Set ComItemBar of hoItems h "F" OLEexBarShowRange to 33554432
		Get ComAddItem of hoItems "Range Moveable EBN Opaque 2" to h
		Set ComItemHeight of hoItems h to 24
		Send ComAddBar of hoItems h "Task" "1/12/2001" "1/16/2001" "F" Nothing
		Set ComItemBar of hoItems h "F" OLEexBarToolTip to "This bar can be moved inside the displayed range."
		Set ComItemBar of hoItems h "F" OLEexBarMinStart to "1/2/2001"
		Set ComItemBar of hoItems h "F" OLEexBarMaxEnd to "1/18/2001"
		Set ComItemBar of hoItems h "F" OLEexBarShowRange to 50331648
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAEGg4BK8IQAAYAQGKIYBkAKBQAGaAoDDYMwzQwAAxDMKEEwsACEIrjKCRShyCYZRhGcTAFD8EhhECTY4lCQJAiKLoeQLHMBybJ8LwiGQaRJmeaYRDUMI6QjPVARVIkaxhCSSaKpIAIBEB" to Nothing
	Send Destroy to hoAppearance
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 0
		Set ComFirstVisibleDate of hoChart to "1/1/2008"
		Set ComMarkTodayColor of hoChart to (ComBackColor(hoChart))
		Set ComLevelCount of hoChart to 2
		Set ComAllowSelectDate of hoChart to False
		Set ComMarkSelectDateColor of hoChart to |CI$1000000
		Set ComSelectLevel of hoChart to 1
		Set ComSelectDate of hoChart "1/15/2008" to True
		Set ComSelectDate of hoChart "1/18/2008" to True
	Send Destroy to hoChart
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 0
		Set ComFirstVisibleDate of hoChart to "1/1/2008"
		Set ComMarkTodayColor of hoChart to (ComBackColor(hoChart))
		Set ComLevelCount of hoChart to 2
		Set ComAllowSelectDate of hoChart to False
		Set ComMarkSelectDateColor of hoChart to |CI$7fff0000
		Set ComSelectLevel of hoChart to 1
		Set ComSelectDate of hoChart "1/15/2008" to True
		Set ComSelectDate of hoChart "1/18/2008" to True
	Send Destroy to hoChart
	Send ComEndUpdate
End_Procedure

// Occurs when the filter was changed.
Procedure OnComFilterChange 
	Forward Send OnComFilterChange 
	Variant v
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComVisibleItemCount of hoItems to v
	Send Destroy to hoItems
	Showln "If negative, the filter is present, else not" v
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Set ComTreeColumnIndex to -1
	Set ComFilterInclude to OLEexMatchingItemsOnly
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Column" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDisplayFilterButton of hoColumn to True
			Set ComFilterType of hoColumn to OLEexFilter
			Set ComFilter of hoColumn to "C1"
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Variant h
		Get ComAddItem of hoItems1 "R1" to h
		Get ComInsertItem of hoItems1 h "C1" to Nothing
		Get ComInsertItem of hoItems1 h "C2" to Nothing
		Set ComExpandItem of hoItems1 h to True
		Get ComAddItem of hoItems1 "R2" to h
		Get ComInsertItem of hoItems1 h "C1" to Nothing
		Get ComInsertItem of hoItems1 h "C2" to Nothing
	Send Destroy to hoItems1
	Send ComApplyFilter
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Set ComTreeColumnIndex to -1
	Set ComFilterInclude to OLEexMatchingItemsOnly
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Column" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDisplayFilterButton of hoColumn to True
			Set ComFilterType of hoColumn to OLEexFilter
			Set ComFilter of hoColumn to "C1|C2"
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "R1" to h
		Get ComInsertItem of hoItems h "C1" to Nothing
		Get ComInsertItem of hoItems h "C2" to Nothing
		Set ComExpandItem of hoItems h to True
		Get ComAddItem of hoItems "R2" to h
		Get ComInsertItem of hoItems h "C1" to Nothing
		Get ComInsertItem of hoItems h "C2" to Nothing
	Send Destroy to hoItems
	Send ComApplyFilter
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Set ComFilterInclude to OLEexMatchingItemsOnly
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Column" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDisplayFilterButton of hoColumn to True
			Set ComFilterType of hoColumn to OLEexFilter
			Set ComFilter of hoColumn to "C1|C2"
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "R1" to h
		Get ComInsertItem of hoItems h "C1" to Nothing
		Get ComInsertItem of hoItems h "C2" to Nothing
		Set ComExpandItem of hoItems h to True
		Get ComAddItem of hoItems "R2" to h
		Get ComInsertItem of hoItems h "C1" to Nothing
		Get ComInsertItem of hoItems h "C2" to Nothing
	Send Destroy to hoItems
	Send ComApplyFilter
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Pattern" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstWeekDay of hoChart to OLEexMonday
		Set ComFirstVisibleDate of hoChart to "1/24/2008"
		Set ComPaneWidth of hoChart False to 52
		Set ComLevelCount of hoChart to 2
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "Default" to Nothing
		Set ComItemNonworkingUnits of hoItems (ComAddItem(hoItems,"1/26/2008")) false to "weekday(value) case (default:0 ; 0:1; 6:(value != #1/26/2008#))"
		Set ComItemNonworkingUnits of hoItems (ComAddItem(hoItems,"1/27/2008")) false to "weekday(value) case (default:0 ; 0:(value != #1/27/2008#); 6:1)"
		Set ComItemNonworkingUnits of hoItems (ComAddItem(hoItems,"Sundays")) false to "weekday(value) = 0"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComScrollBars to OLEexDisableBoth
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComToolTip of hoChart to ""
	Send Destroy to hoChart
	Set ComScrollPartVisible OLEexVScroll OLEexExtentThumbPart to True
	Set ComScrollPartVisible OLEexHScroll OLEexExtentThumbPart to True
	Set ComScrollPartVisible OLEexHChartScroll OLEexExtentThumbPart to True
	Set ComScrollWidth to 4
	Set ComBackground OLEexVSBack to (RGB(240,240,240))
	Set ComBackground OLEexVSThumb to (RGB(128,128,128))
	Set ComScrollHeight to 4
	Set ComBackground OLEexHSBack to (ComBackground(Self,OLEexVSBack))
	Set ComBackground OLEexHSThumb to (ComBackground(Self,OLEexVSThumb))
	Set ComBackground OLEexScrollSizeGrip to (ComBackground(Self,OLEexVSBack))
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAEGg4BNACg6AADACAxRDAMgBQKAAzQFAYbhsGCGAAGEZBQgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDEAkRRdDSOYDmGQYDiCIoRShOMaTVJ8bQ2ASEaAmWK3boUAJFPrFc6ABJMZRRISXJABeKwRoGJYaUhRdDRNCIZBqEqua7iEZRQqCCZkWZPNTRVScByhF61IDpWjKLDKJJwXBMcxyBL0NRxFTAKawGoYbq0AJQVTQcZPVhgAYYfSlMDuOB5Gq+G5SQjhWIgBjde4dRrHYrsGyQAp7JJoWLZMQyFIFIYNTS8LgpPI6LyyP5rABhWw5PiUVyfWTMdwzPatbyKHJicbpepWPxcNYtNzcNb3SAbn+KgAmqP5yDiIAACIEhQDSGJOgcU4RhQYwgFUQwIESXxEGgbQJBQQhzHmUAAGILh0lWbpEGIIQQHuegaAaoRYBUBYBCgFAOAOQJgC4CgCCCQAUAQARACgRZFEa3ogCcCICDCDZ9AeH5wGgFoHmAUBIA6CJgiALgMAIABYiYER+BuMIyC4CZjAcYgygyYxIlYNoNBGMJGDoCximiXg+g+Yx0G0DgNiOIJGECEZkgQbA7A8A5JA4SITmOZBsEGFJDkkLhQhXOItBYEZEGEHBCBARApGIYh1EAaIoAMQIEkENBNBGZpJg4YgCGcAAaGUAAFCmVhqBMZppGADQDACQAmAwAAFgoBh1BSJ4ZFwEEdHmcFmgWag2gEFhoFlINYkoHAQAABhKGQX4jGkGQ8BiJ5BDqBAABqKl1GSJxkgAcoqAYAR3lQcIrkaOoSiiEZCBCBAgiqAaJHaLpHBqQoliaBZxHwWYwkUQRMFQExEmENBJBIRIBAgQwQkOYJ0D4DhDgCYAzjWQpgjwLgKi2QIWl4CACADeofC4SpsHcHArlqRBqBkbpLAaQoxAUQRQE6PLoCaT40AOYJ6lWNdXlAL4/m2QIql4CRAAQBCAg=" to Nothing
		Get ComAdd of hoAppearance 2 "CP:1 -4 -4 4 4" to Nothing
	Send Destroy to hoAppearance
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Set ComDrawGridLines to OLEexAllLines
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComPaneWidth of hoChart False to 128
		Set ComDrawGridLines of hoChart to OLEexAllLines
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task")) "Task" "1/2/2001" "1/5/2001" "K1" Nothing
		Variant h
		Get ComAddItem of hoItems "Task/ EBN Frame" to h
		Set ComItemHeight of hoItems h to 32
		Send ComAddBar of hoItems h "Task" "1/3/2001" "1/15/2001" "K2" Nothing
		Set ComItemBar of hoItems h "K2" OLEexBarFrameColor to 33554432
		Get ComAddItem of hoItems "Task/ EBN Frame" to h
		Set ComItemHeight of hoItems h to 32
		Send ComAddBar of hoItems h "Task" "1/3/2001" "1/15/2001" "K2" Nothing
		Set ComItemBar of hoItems h "K2" OLEexBarFrameColor to 50331392
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task")) "Task" "1/2/2001" "1/5/2001" "K3" Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
		Variant voColumn
		Get ComAdd of hoColumns "Duration" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 513
			Set ComDef of hoColumn OLEexCellValueToItemBarKey to "A"
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "Working" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 258
			Set ComDef of hoColumn1 OLEexCellValueToItemBarKey to "A"
		Send Destroy to hoColumn1
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComAllowCellValueToItemBar of hoItems to True
	Send Destroy to hoItems
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 256
		Set ComFirstVisibleDate of hoChart to "1/3/2002"
		Set ComLevelCount of hoChart to 2
	Send Destroy to hoChart
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Variant h
		Get ComAddItem of hoItems1 "Task 1" to h
		Send ComAddBar of hoItems1 h "Task" "1/4/2002" "1/8/2002" "A" Nothing
	Send Destroy to hoItems1
	Send ComEndUpdate
End_Procedure

// Occurs when a bar is moved or resized.
Procedure OnComBarResize HITEM   llItem Variant   llKey
	Forward Send OnComBarResize llItem llKey
	Send ComRefresh
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "<fgcolor=FF0000>Tasks > 2 days" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComHTMLCaption of hoColumn to (ComCaption(hoColumn))
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComAdd of hoColumns1 "PropertyBar" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComVisible of hoColumn1 to False
			Set ComDef of hoColumn1 OLEexCellValueToItemBarKey to ""
			Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 513
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComAllowCellValueToItemBar of hoItems to True
	Send Destroy to hoItems
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComLevelCount of hoChart to 2
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComPaneWidth of hoChart False to 96
		Set ComNonworkingDays of hoChart to 0
	Send Destroy to hoChart
	Variant voConditionalFormats
	Get ComConditionalFormats to voConditionalFormats
	Handle hoConditionalFormats
	Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
	Set pvComObject of hoConditionalFormats to voConditionalFormats
		Variant voConditionalFormat
		Get ComAdd of hoConditionalFormats "%1 > 2" Nothing to voConditionalFormat
		Handle hoConditionalFormat
		Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
		Set pvComObject of hoConditionalFormat to voConditionalFormat
			Set ComForeColor of hoConditionalFormat to (RGB(255,0,0))
			Set ComBold of hoConditionalFormat to True
		Send Destroy to hoConditionalFormat
	Send Destroy to hoConditionalFormats
	Set ComSelBackColor to (ComBackColor(Self))
	Set ComSelForeColor to (ComForeColor(Self))
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Send ComAddBar of hoItems1 (ComAddItem(hoItems1,"Task 1")) "Task" "1/2/2001" "1/4/2001" "" Nothing
		Send ComAddBar of hoItems1 (ComAddItem(hoItems1,"Task 2")) "Task" "1/4/2001" "1/7/2001" "" Nothing
		Send ComAddBar of hoItems1 (ComAddItem(hoItems1,"Task 1")) "Task" "1/2/2001" "1/4/2001" "" Nothing
	Send Destroy to hoItems1
	Send ComEndUpdate
End_Procedure

// Occurs when a bar is moved or resized.
Procedure OnComBarResize HITEM   llItem Variant   llKey
	Forward Send OnComBarResize llItem llKey
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComSchedulePDM of hoItems llItem llKey to Nothing
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn
		Get ComAdd of hoColumns1 "PropertyBar" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComVisible of hoColumn to False
			Set ComDef of hoColumn OLEexCellValueToItemBarKey to ""
			Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 269
		Send Destroy to hoColumn
	Send Destroy to hoColumns1
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Set ComAllowCellValueToItemBar of hoItems1 to True
	Send Destroy to hoItems1
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComPaneWidth of hoChart False to 48
		Set ComNonworkingDays of hoChart to 0
	Send Destroy to hoChart
	Variant voConditionalFormats
	Get ComConditionalFormats to voConditionalFormats
	Handle hoConditionalFormats
	Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
	Set pvComObject of hoConditionalFormats to voConditionalFormats
		Variant voConditionalFormat
		Get ComAdd of hoConditionalFormats "%1 != 0" Nothing to voConditionalFormat
		Handle hoConditionalFormat
		Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
		Set pvComObject of hoConditionalFormat to voConditionalFormat
			Set ComForeColor of hoConditionalFormat to (RGB(255,0,0))
			Set ComBold of hoConditionalFormat to True
		Send Destroy to hoConditionalFormat
	Send Destroy to hoConditionalFormats
	Set ComSelBackColor to (ComBackColor(Self))
	Set ComSelForeColor to (ComForeColor(Self))
	Variant voItems2
	Get ComItems to voItems2
	Handle hoItems2
	Get Create (RefClass(cComItems)) to hoItems2
	Set pvComObject of hoItems2 to voItems2
		Variant h1
		Get ComAddItem of hoItems2 "Task 1" to h1
		Send ComAddBar of hoItems2 h1 "Task" "1/2/2001" "1/4/2001" "" Nothing
		Variant h2
		Get ComAddItem of hoItems2 "Task 2" to h2
		Send ComAddBar of hoItems2 h2 "Task" "1/2/2001" "1/4/2001" "" Nothing
		Send ComAddLink of hoItems2 "L1" h1 "" h2 ""
		Variant h3
		Get ComAddItem of hoItems2 "Task 3" to h3
		Send ComAddBar of hoItems2 h3 "Task" "1/2/2001" "1/4/2001" "" Nothing
		Send ComAddLink of hoItems2 "L2" h2 "" h3 ""
		Variant h4
		Get ComAddItem of hoItems2 "Task 3" to h4
		Send ComAddBar of hoItems2 h4 "Task" "1/2/2001" "1/3/2001" "" Nothing
		Send ComAddLink of hoItems2 "L3" h2 "" h4 ""
		Set ComDefSchedulePDM of hoItems2 OLEexPDMCriticalPathBarColor to 255
		Set ComDefSchedulePDM of hoItems2 OLEexPDMCriticalPathLinkColor to 255
		Get ComSchedulePDM of hoItems2 0 "" to Nothing
	Send Destroy to hoItems2
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComPaneWidth of hoChart False to 128
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Send ComAddShapeCorner of hoBars 12345 1
			Variant voBar
			Get ComCopy of hoBars "Milestone" "Original" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComStartShape of hoBar to (|CI$3020 + OLEexShapeIconVBar + OLEexShapeIconRight)
				Set ComStartColor of hoBar to -1
			Send Destroy to hoBar
			Variant voBar1
			Get ComCopy of hoBars "Milestone" "Red" to voBar1
			Handle hoBar1
			Get Create (RefClass(cComBar)) to hoBar1
			Set pvComObject of hoBar1 to voBar1
				Set ComStartShape of hoBar1 to (|CI$3020 + OLEexShapeIconVBar + OLEexShapeIconRight)
				Set ComStartColor of hoBar1 to (RGB(255,0,0))
			Send Destroy to hoBar1
			Variant voBar2
			Get ComCopy of hoBars "Milestone" "Green" to voBar2
			Handle hoBar2
			Get Create (RefClass(cComBar)) to hoBar2
			Set pvComObject of hoBar2 to voBar2
				Set ComStartShape of hoBar2 to (|CI$3020 + OLEexShapeIconVBar + OLEexShapeIconRight)
				Set ComStartColor of hoBar2 to (RGB(0,255,0))
			Send Destroy to hoBar2
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Column" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Original")) "Original" "1/2/2001" "1/2/2001" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Red")) "Red" "1/2/2001" "1/2/2001" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Green")) "Green" "1/2/2001" "1/2/2001" Nothing Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
	Send Destroy to hoChart
	Variant voChart1
	Get ComChart to voChart1
	Handle hoChart1
	Get Create (RefClass(cComChart)) to hoChart1
	Set pvComObject of hoChart1 to voChart1
		Variant voBars
		Get ComBars of hoChart1 to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Send ComAddShapeCorner of hoBars 12345 1
			Variant voBar
			Get ComItem of hoBars "Milestone" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComStartShape of hoBar to (|CI$3020 + OLEexShapeIconVBar + OLEexShapeIconRight)
				Set ComStartColor of hoBar to -1
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart1
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Column" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Milestone" "1/2/2001" "1/2/2001" Nothing Nothing
	Send Destroy to hoItems
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 128
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Item" to h
			Variant voChart1
			Get ComChart to voChart1
			Handle hoChart1
			Get Create (RefClass(cComChart)) to hoChart1
			Set pvComObject of hoChart1 to voChart1
				Set ComItemBackColor of hoChart1 h to (RGB(0,255,0))
			Send Destroy to hoChart1
			Variant voItems1
			Get ComItems to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Set ComItemBackColor of hoItems1 h to (RGB(0,255,0))
			Send Destroy to hoItems1
	Send Destroy to hoItems
End_Procedure

// Occurs when a bar is moved or resized.
Procedure OnComBarResize HITEM   llItem Variant   llKey
	Forward Send OnComBarResize llItem llKey
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComSchedulePDM of hoItems llItem llKey to Nothing
	Send Destroy to hoItems
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComPaneWidth of hoChart False to 48
		Set ComNonworkingDays of hoChart to 0
	Send Destroy to hoChart
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Variant h1
		Get ComAddItem of hoItems1 "Task 1" to h1
		Send ComAddBar of hoItems1 h1 "Task" "1/2/2001" "1/4/2001" "K1" Nothing
		Variant h2
		Get ComAddItem of hoItems1 "Task 2" to h2
		Send ComAddBar of hoItems1 h2 "Task" "1/2/2001" "1/4/2001" "K2" Nothing
		Send ComAddLink of hoItems1 "L1" h1 "K1" h2 "K2"
		Variant h3
		Get ComAddItem of hoItems1 "Task 3" to h3
		Send ComAddBar of hoItems1 h3 "Task" "1/2/2001" "1/4/2001" "K3" Nothing
		Send ComAddLink of hoItems1 "L2" h2 "K2" h3 "K3"
		Variant h4
		Get ComAddItem of hoItems1 "Task 3" to h4
		Send ComAddBar of hoItems1 h4 "Task" "1/2/2001" "1/3/2001" "K4" Nothing
		Send ComAddLink of hoItems1 "L3" h2 "K2" h4 "K4"
		Set ComDefSchedulePDM of hoItems1 OLEexPDMCriticalPathBarColor to 255
		Set ComDefSchedulePDM of hoItems1 OLEexPDMCriticalPathLinkColor to 255
		Get ComSchedulePDM of hoItems1 0 "K1" to Nothing
	Send Destroy to hoItems1
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstWeekDay of hoChart to (ComLocFirstWeekDay(hoChart))
		Set ComMonthNames of hoChart to (ComLocMonthNames(hoChart))
		Set ComWeekDays of hoChart to (ComLocWeekDays(hoChart))
		Set ComAMPM of hoChart to (ComLocAMPM(hoChart))
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 0
		Set ComUnitScale of hoChart to OLEexDay
		Variant voLevel
		Get ComLevel of hoChart 0 to voLevel
		Handle hoLevel
		Get Create (RefClass(cComLevel)) to hoLevel
		Set pvComObject of hoLevel to voLevel
			Set ComLabel of hoLevel to "<%mmmm%> <%d%>, <%loc_yyyy%> <r><%ww%>"
			Set ComUnit of hoLevel to OLEexWeek
			Set ComToolTip of hoLevel to (ComLabel(hoLevel))
		Send Destroy to hoLevel
		Set ComToolTip of hoChart to "<%ddd%> <%m%>/<%d%>/<%loc_yyyy%>"
	Send Destroy to hoChart
	Variant v
	Variant voChart1
	Get ComChart to voChart1
	Handle hoChart1
	Get Create (RefClass(cComChart)) to hoChart1
	Set pvComObject of hoChart1 to voChart1
		Get ComMonthNames of hoChart1 to v
	Send Destroy to hoChart1
	Set ComDescription OLEexFilterBarDateMonths to v
	Variant v1
	Variant voChart2
	Get ComChart to voChart2
	Handle hoChart2
	Get Create (RefClass(cComChart)) to hoChart2
	Set pvComObject of hoChart2 to voChart2
		Get ComMonthNames of hoChart2 to v1
	Send Destroy to hoChart2
	Set ComDefaultEditorOption OLEexDateMonths to v1
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstWeekDay of hoChart to (ComLocFirstWeekDay(hoChart))
		Set ComMonthNames of hoChart to (ComLocMonthNames(hoChart))
		Set ComWeekDays of hoChart to (ComLocWeekDays(hoChart))
		Set ComAMPM of hoChart to (ComLocAMPM(hoChart))
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 0
	Send Destroy to hoChart
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "C:/Program Files/Exontrol/ExG2antt/Sample/EBN/2task--.ebn" to Nothing
		Get ComAdd of hoAppearance 2 "C:/Program Files/Exontrol/ExG2antt/Sample/EBN/2task-.ebn" to Nothing
		Get ComAdd of hoAppearance 3 "C:/Program Files/Exontrol/ExG2antt/Sample/EBN/2task.ebn" to Nothing
		Get ComAdd of hoAppearance 4 "C:/Program Files/Exontrol/ExG2antt/Sample/EBN/2task+.ebn" to Nothing
		Get ComAdd of hoAppearance 5 "C:/Program Files/Exontrol/ExG2antt/Sample/EBN/2task++.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComPaneWidth of hoChart False to 128
		Set ComNonworkingDays of hoChart to 0
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComCopy of hoBars "Task" "--" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComColor of hoBar to |CI$1000000
			Send Destroy to hoBar
		Send Destroy to hoBars
		Variant voBars1
		Get ComBars of hoChart to voBars1
		Handle hoBars1
		Get Create (RefClass(cComBars)) to hoBars1
		Set pvComObject of hoBars1 to voBars1
			Variant voBar1
			Get ComCopy of hoBars1 "Task" "-" to voBar1
			Handle hoBar1
			Get Create (RefClass(cComBar)) to hoBar1
			Set pvComObject of hoBar1 to voBar1
				Set ComColor of hoBar1 to |CI$2000000
			Send Destroy to hoBar1
		Send Destroy to hoBars1
		Variant voBars2
		Get ComBars of hoChart to voBars2
		Handle hoBars2
		Get Create (RefClass(cComBars)) to hoBars2
		Set pvComObject of hoBars2 to voBars2
			Variant voBar2
			Get ComItem of hoBars2 "Task" to voBar2
			Handle hoBar2
			Get Create (RefClass(cComBar)) to hoBar2
			Set pvComObject of hoBar2 to voBar2
				Set ComColor of hoBar2 to |CI$3000000
			Send Destroy to hoBar2
		Send Destroy to hoBars2
		Variant voBars3
		Get ComBars of hoChart to voBars3
		Handle hoBars3
		Get Create (RefClass(cComBars)) to hoBars3
		Set pvComObject of hoBars3 to voBars3
			Variant voBar3
			Get ComCopy of hoBars3 "Task" "+" to voBar3
			Handle hoBar3
			Get Create (RefClass(cComBar)) to hoBar3
			Set pvComObject of hoBar3 to voBar3
				Set ComColor of hoBar3 to |CI$4000000
			Send Destroy to hoBar3
		Send Destroy to hoBars3
		Variant voBars4
		Get ComBars of hoChart to voBars4
		Handle hoBars4
		Get Create (RefClass(cComBars)) to hoBars4
		Set pvComObject of hoBars4 to voBars4
			Variant voBar4
			Get ComCopy of hoBars4 "Task" "++" to voBar4
			Handle hoBar4
			Get Create (RefClass(cComBar)) to hoBar4
			Set pvComObject of hoBar4 to voBar4
				Set ComColor of hoBar4 to |CI$5000000
			Send Destroy to hoBar4
		Send Destroy to hoBars4
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Brightness" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "0%" to h
		Send ComAddBar of hoItems h "--" "1/2/2001" "1/4/2001" "--" Nothing
		Send ComAddBar of hoItems h "-" "1/5/2001" "1/7/2001" "-" Nothing
		Send ComAddBar of hoItems h "Task" "1/8/2001" "1/10/2001" "" Nothing
		Send ComAddBar of hoItems h "+" "1/11/2001" "1/13/2001" "+" Nothing
		Send ComAddBar of hoItems h "++" "1/14/2001" "1/16/2001" "++" Nothing
		Get ComAddItem of hoItems "25%" to h
		Send ComAddBar of hoItems h "--" "1/2/2001" "1/4/2001" "--" Nothing
		Send ComAddBar of hoItems h "-" "1/5/2001" "1/7/2001" "-" Nothing
		Send ComAddBar of hoItems h "Task" "1/8/2001" "1/10/2001" "" Nothing
		Send ComAddBar of hoItems h "+" "1/11/2001" "1/13/2001" "+" Nothing
		Send ComAddBar of hoItems h "++" "1/14/2001" "1/16/2001" "++" Nothing
		Set ComItemBar of hoItems h "<*>" OLEexBarTransparent to 25
		Get ComAddItem of hoItems "50%" to h
		Send ComAddBar of hoItems h "--" "1/2/2001" "1/4/2001" "--" Nothing
		Send ComAddBar of hoItems h "-" "1/5/2001" "1/7/2001" "-" Nothing
		Send ComAddBar of hoItems h "Task" "1/8/2001" "1/10/2001" "" Nothing
		Send ComAddBar of hoItems h "+" "1/11/2001" "1/13/2001" "+" Nothing
		Send ComAddBar of hoItems h "++" "1/14/2001" "1/16/2001" "++" Nothing
		Set ComItemBar of hoItems h "<*>" OLEexBarTransparent to 50
		Get ComAddItem of hoItems "75%" to h
		Send ComAddBar of hoItems h "--" "1/2/2001" "1/4/2001" "--" Nothing
		Send ComAddBar of hoItems h "-" "1/5/2001" "1/7/2001" "-" Nothing
		Send ComAddBar of hoItems h "Task" "1/8/2001" "1/10/2001" "" Nothing
		Send ComAddBar of hoItems h "+" "1/11/2001" "1/13/2001" "+" Nothing
		Send ComAddBar of hoItems h "++" "1/14/2001" "1/16/2001" "++" Nothing
		Set ComItemBar of hoItems h "<*>" OLEexBarTransparent to 75
	Send Destroy to hoItems
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComColor of hoBar to |CI$1000000
			Send Destroy to hoBar
		Send Destroy to hoBars
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComPaneWidth of hoChart False to 128
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Brightness" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "0%" to h
		Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" Nothing Nothing
		Get ComAddItem of hoItems "25%" to h
		Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" Nothing Nothing
		Set ComItemBar of hoItems h "" OLEexBarTransparent to 25
		Get ComAddItem of hoItems "50%" to h
		Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" Nothing Nothing
		Set ComItemBar of hoItems h "" OLEexBarTransparent to 50
		Get ComAddItem of hoItems "75%" to h
		Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" Nothing Nothing
		Set ComItemBar of hoItems h "" OLEexBarTransparent to 75
	Send Destroy to hoItems
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComMarkSearchColumn to False
	Set ComOnResizeControl to OLEexResizeChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn
		Get ComAdd of hoColumns1 "Start" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComVisible of hoColumn to False
		Send Destroy to hoColumn
	Send Destroy to hoColumns1
	Variant voColumns2
	Get ComColumns to voColumns2
	Handle hoColumns2
	Get Create (RefClass(cComColumns)) to hoColumns2
	Set pvComObject of hoColumns2 to voColumns2
		Variant voColumn1
		Get ComAdd of hoColumns2 "End" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComVisible of hoColumn1 to False
		Send Destroy to hoColumn1
	Send Destroy to hoColumns2
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComLevelCount of hoChart to 2
		Set ComFirstVisibleDate of hoChart to "9/18/2006"
		Set ComPaneWidth of hoChart False to 64
		Set ComScrollRange of hoChart OLEexStartDate to (ComFirstVisibleDate(hoChart))
		Set ComScrollRange of hoChart OLEexEndDate to "12/31/2006"
		Set ComMarkSelectDateColor of hoChart to |CI$7fff0000
		Set ComSelectLevel of hoChart to 1
		Set ComSelectDate of hoChart "9/19/2006" to True
		Set ComAllowCreateBar of hoChart to OLEexNoCreateBar
		Set ComAllowLinkBars of hoChart to False
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Project" to h
		Set ComCellValue of hoItems h 1 to "9/21/2006"
		Set ComCellValue of hoItems h 2 to "10/3/2006"
		Send ComAddBar of hoItems h "Summary" (ComCellValue(hoItems,h,1)) (ComCellValue(hoItems,h,2)) "sum" Nothing
		Variant h1
		Get ComInsertItem of hoItems h "Task 1" to h1
		Set ComCellValue of hoItems h1 1 to (ComCellValue(hoItems,h,1))
		Set ComCellValue of hoItems h1 2 to "9/24/2006"
		Send ComAddBar of hoItems h1 "Task" (ComCellValue(hoItems,h1,1)) (ComCellValue(hoItems,h1,2)) "K1" Nothing
		Set ComItemBar of hoItems h1 "K1" OLEexBarMinStart to "9/20/2006"
		Variant h2
		Get ComInsertItem of hoItems h "Task 2" to h2
		Set ComCellValue of hoItems h2 1 to (ComCellValue(hoItems,h1,2))
		Set ComCellValue of hoItems h2 2 to "9/28/2006"
		Send ComAddBar of hoItems h2 "Unknown" (ComCellValue(hoItems,h2,1)) (ComCellValue(hoItems,h2,2)) "K2" Nothing
		Send ComAddLink of hoItems "L1" h1 "K1" h2 "K2"
		Variant h3
		Get ComInsertItem of hoItems h "Task 3" to h3
		Set ComCellValue of hoItems h3 1 to (ComCellValue(hoItems,h2,2))
		Set ComCellValue of hoItems h3 2 to (ComCellValue(hoItems,h,2))
		Send ComAddBar of hoItems h3 "Task" (ComCellValue(hoItems,h3,1)) (ComCellValue(hoItems,h3,2)) "K3" Nothing
		Send ComAddLink of hoItems "L2" h2 "K2" h3 "K3"
		Send ComGroupBars of hoItems h1 "K1" False h2 "K2" True 31 "0;4"
		Send ComGroupBars of hoItems h2 "K2" False h3 "K3" True 31 "0;2"
		Send ComDefineSummaryBars of hoItems h "sum" h1 "K1"
		Send ComDefineSummaryBars of hoItems h "sum" h2 "K2"
		Send ComDefineSummaryBars of hoItems h "sum" h3 "K3"
		Set ComExpandItem of hoItems h to True
		Set ComItemBold of hoItems h to True
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Set ComMarkSearchColumn to False
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Car" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDisplayFilterButton of hoColumn to True
			Set ComFilterType of hoColumn to OLEexFilter
			Set ComFilter of hoColumn to "MAZDA"
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "Equipment" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComDisplayFilterButton of hoColumn1 to True
			Set ComDisplayFilterPattern of hoColumn1 to False
			Set ComCustomFilter of hoColumn1 to "Air Bag||*Air Bag*|||Air condition||*Air condition*|||ABS||*ABS*|||ESP||*ESP*"
			Set ComFilterType of hoColumn1 to OLEexPattern
			Set ComFilter of hoColumn1 to "AIR BAG"
		Send Destroy to hoColumn1
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComCellValue of hoItems (ComAddItem(hoItems,"Mazda")) 1 to "Air Bag"
		Set ComCellValue of hoItems (ComAddItem(hoItems,"Toyota")) 1 to "Air Bag,Air condition"
		Set ComCellValue of hoItems (ComAddItem(hoItems,"Ford")) 1 to "Air condition"
		Set ComCellValue of hoItems (ComAddItem(hoItems,"Nissan")) 1 to "Air Bag,ABS,ESP"
		Set ComCellValue of hoItems (ComAddItem(hoItems,"Mazda")) 1 to "Air Bag, ABS,ESP"
		Set ComCellValue of hoItems (ComAddItem(hoItems,"Mazda")) 1 to "ABS,ESP"
	Send Destroy to hoItems
	Send ComApplyFilter
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Set ComMarkSearchColumn to False
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Car" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDisplayFilterButton of hoColumn to True
			Set ComFilterType of hoColumn to (OLEexFilterDoCaseSensitive + OLEexFilter)
			Set ComFilter of hoColumn to "Mazda"
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "Equipment" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComDisplayFilterButton of hoColumn1 to True
			Set ComDisplayFilterPattern of hoColumn1 to False
			Set ComCustomFilter of hoColumn1 to "Air Bag||*Air Bag*|||Air condition||*Air condition*|||ABS||*ABS*|||ESP||*ESP*"
			Set ComFilterType of hoColumn1 to (OLEexFilterDoCaseSensitive + OLEexPattern)
			Set ComFilter of hoColumn1 to "Air Bag"
		Send Destroy to hoColumn1
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComCellValue of hoItems (ComAddItem(hoItems,"Mazda")) 1 to "Air Bag"
		Set ComCellValue of hoItems (ComAddItem(hoItems,"Toyota")) 1 to "Air Bag,Air condition"
		Set ComCellValue of hoItems (ComAddItem(hoItems,"Ford")) 1 to "Air condition"
		Set ComCellValue of hoItems (ComAddItem(hoItems,"Nissan")) 1 to "Air Bag,ABS,ESP"
		Set ComCellValue of hoItems (ComAddItem(hoItems,"Mazda")) 1 to "Air Bag, ABS,ESP"
		Set ComCellValue of hoItems (ComAddItem(hoItems,"Mazda")) 1 to "ABS,ESP"
	Send Destroy to hoItems
	Send ComApplyFilter
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComPaneWidth of hoChart False to 48
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h1
		Get ComAddItem of hoItems "Task 1" to h1
		Send ComAddBar of hoItems h1 "" "1/2/2001" "1/8/2001" "K1" "Leave Blank"
		Set ComItemBar of hoItems h1 "K1" OLEexBarSelectable to False
		Set ComItemBar of hoItems h1 "K1" OLEexBarBackColor to 255
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

// Occurs after the chart has been changed.
Procedure OnComChartEndChanging OLEBarOperationEnum   llOperation
	Forward Send OnComChartEndChanging llOperation
	Showln "End Operation(exVSplitterChange(10)" llOperation
	Variant v
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Get ComPaneWidth of hoChart False to v
	Send Destroy to hoChart
	Showln "PaneWidth:" v
End_Procedure

// Occurs when the chart is about to be changed.
Procedure OnComChartStartChanging OLEBarOperationEnum   llOperation
	Forward Send OnComChartStartChanging llOperation
	Showln "Start Operation(exVSplitterChange(10)" llOperation
	Variant v1
	Variant voChart1
	Get ComChart to voChart1
	Handle hoChart1
	Get Create (RefClass(cComChart)) to hoChart1
	Set pvComObject of hoChart1 to voChart1
		Get ComPaneWidth of hoChart1 False to v1
	Send Destroy to hoChart1
	Showln "PaneWidth:" v1
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "12/29/2000"
		Set ComPaneWidth of hoChart False to 64
		Set ComLevelCount of hoChart to 2
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/2/2001" "1/4/2001" "K1" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "1/4/2001" "1/6/2001" "K2" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "Task" "1/8/2001" "1/10/2001" "K3" Nothing
		Variant h
		Get ComAddItem of hoItems "" to h
		Send ComAddBar of hoItems h "" "1/8/2001" "1/10/2001" "" "<b>Right click</b> the chart, start dragging to select multiple bars<br>or click a bar while pressing the <b>CTRL</b> key"
		Set ComItemHeight of hoItems h to 36
		Set ComItemBar of hoItems h "" OLEexBarSelectable to False
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure